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enables  second  weapon  allocation  to  some  classes  to  precede  first  weapon 
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FORCE  BALANCE  ALLOCATION  MODEL 

A.  OVERVIEW 

This  report  summarizes  work  sponsored  by  the  Defense  Nuclear  Agency  to 
provide  the  Studies,  Analysis,  and  Gaming  Agency  (SAGA)  with  an  improved 
stand-alone  capability  to  perform  force  balance  allocation  analyses. 

System  Planning  Corporation  (SPC)  supplied  this  capability  by  developing 
computer  software,  implemented  on  a  TEKTRONIX  4051,  that  calculates  damage 
caused  to  targets  in  a  database  by  an  arsenal  of  weapons.  The  computer 
listing  for  the  TEKTRONIX  software  is  included  as  Appendix  A  to  this 
report. 

The  software  developed  under  this  contract  utilizes  the  Beginner’s 
All-Purpose  Symbolic  Instruction  Code  (BASIC)  computer  programming  lan¬ 
guage.  This  language  was  chosen  by  SAGA.  Among  its  advantages,  BASIC 
affords  the  user  increased  portability  among  microcomputers  that  are  not 
dissimilar  to  the  TEKTRONIX  4051. 

The  software  design,  development,  and  implementation  effort  produced  a 
sequential  allocator  program  that  incorporates  existing  nonautomated  pro¬ 
cedures  as  well  as  existing  probabi 1 i ty-of-damage  calculation  (PD  CALC)  and 
damage  expectancy  calculation  (DE  CALC)  programs.  SAGA  supplied  the  latter 
programs  to  SPC.  SPC  modified  them  to  a  BASIC  subroutine  format  for  imple¬ 
mentation  on  the  TEKTRONIX  4051. 

Section  B  describes  the  target  and  weapon  databases.  Section  C  out¬ 
lines  the  allocation  methodology  on  which  the  computer  programs  are  based. 
Section  D  discusses  the  algorithm  and  data  structures.  Section  F  describes 
user  information.  Appendices  A  and  B  contain  computer  listings  for  the 
programs  designed  and  developed  by  SPC.  Appendices  C  and  D  consist  of 
materials  provided  by  SAGA. 
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B.  DATA  DESCRIPTIONS 


1.  Target  Database 

The  targets  are  aggregated  into  classes,  each  of  which  is  character¬ 
ized  by  the  number  of  targets  within  the  class,  target  radius,  and  hardness 
(VNTK).  Additionally,  goal  attributes  associated  with  each  class  describe 
the  level  and  type  of  damage  expectancy  to  be  achieved.  For  the  installa¬ 
tion  damage  expectancy  (IDE)  goal  type,  the  required  damage  level  applies 
to  each  target  in  the  class.  For  the  mean  installation  damage  expectancy 
(MIDE)  goal  type,  the  required  damage  level  applies  to  the  class  as  a 
whol e. 

The  target  classes  are  organized  in  five  groups  (called  objectives): 
strategic  nuclear  threat,  theater  nuclear  forces,  leadership,  conventional, 
and  industry.  Within  each  objective,  target  classes  are  further  organized 
into  priority  groups  to  distinguish  two  priority  types:  time  urgent  and 
time  critical  targets. 

2.  Arsenal  Database 

The  nuclear-weapon  arsenal  consists  of  various  weapon  systems  speci¬ 
fied  by  their  number;  explosive  yield;  accuracy,  measured  as  circular  error 
probable  (CEP);  arrival  probability  (both  generated  and  day-to-day);  and 
type  (missile  or  bomber). 

C.  ALLOCATION  METHODOLOGY  DESCRIPTION 

The  methodology  consists  of  two  phases.  In  the  first  phase,  a  damage 
expectancy  (DE)  matrix  is  formed  by  computing  the  effect  of  each  type  of 
weapon  on  every  target  class  in  the  data  base.  In  phase  two,  the  weapons 
are  allocated  against  targets. 

The  nuclear  arsenal  is  allocated  against  targets  sequentially  by  ob¬ 
jectives  according  to  procedures  developed  at  SAGA.  An  example  of  one 
^.ocedure  is  described  in  a  SAGA  report  included  as  Appendix  D. 
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The  procedure  incorporates  various  decision  and  selection  rules.  Some 
of  these  rules  are  explicit,  such  as  a  weapon-selection  priority  rule, 
whereas  some  are  implicit.  For  example,  an  implicit  rule  is  imposed  on  the 
allocation  scheme  by  ordering  within  the  target  database  (e.g.,  leadership 
targets  precede  the  industry  targets).  As  an  example  of  an  explicit  rule, 
first  weapons  within  an  objective  group  are  allocated  to  all  classes,  and  a 
second  weapon  is  then  applied  where  necessary  to  resolve  goal  shortfalls 
(if  any  occur)  before  moving  on  to  the  next  objective.  Figure  1  represents 
the  allocation  system  flow  diagram. 


0.  SEQUENTIAL  ALGORITHM  LOGIC 
1.  Program  Overview 

The  BASIC  computer  programs,  implemented  on  SAC-A's  TEKTRONIX  computer, 
comprise  three  modules:  the  DE  subroutines  ("DAMAGE"),  the  allocator 
("ALLOCATE"),  and  the  driver  module.  TEKTRONIX  computer  listings  appear  in 
Appendix  A.  Constraints  imposed  by  the  TEKTRONIX  BASIC  interpreter  make 
line-by-line  annotation,  mnemonic-name  selection,  and  structured-cc itrol 
constructs  (such  as  IF. . .THEN. . .ELSE)  difficult.  Moreover,  to  conform  to 
TEKTRONIX  memory  and  execution-time  constraints  and  also  to  provide  the 
model  as  much  capacity  as  possible  (i.e.,  number  of  target  classes  per 
objective  and  weapon  types),  the  internal  annotation  was  held  to  a  minimum. 

The  programs  that  SPC  developed  follow  the  SAGA  methodology,  described 
in  Appendix  D,  as  modified  by  several  extensive  reviews  of  preliminary 
designs  and  flow  diagrams  with  SAGA.  The  logic  agreed  upon  follows  the 
descriptions  in  Appendix  D  with  the  following  exceptions: 

•  Strict  compliance  to  DE  goals  is  required. 

•  No  more  than  two  weapons  per  target  are  allocated. 

•  The  number  of  second  weapons  required  to  meet  M I DE  shortfalls  is 
computed  by  an  exact,  integer  solution  instead  of  the  continuous, 
logarithmic  approximation. 

Pursuant  to  direction  by  SAGA  personnel,  the  term  "time  critical"  is  used 
in  lieu  of  "non-time  urgent"  found  in  Appendix  D. 
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Fully  documented  versions  of  the  BASIC  programs  appear  in  Appendix  B. 
These  programs,  prepared  and  run  on  an  IBM  Personal  Computer,  played  dual 
roles  in  the  design  and  development  of  the  TEKTRONIX  programs:  they  not 
only  validated  the  decision  logic  but  also  served  as  the  "program  design 
language"  for  the  force  balance  model. 

The  following  sections  describe  the  data  and  algorithm  structures  used 
to  implement  the  model  and  include  programmer's  notes. 

2.  Damage  Expectancy  Calculation 

Weapon  system  DE  against  a  target,  defined  as  the  product  of  arrival 
probability  and  destruction  probability,  is  computed  during  the  first  phase 
of  the  methodology  described  earlier.  The  computer  program,  called  DAMAGE, 
was  prepared  by  consolidating  two  existing  programs--l i sted  in  Appendix  C-- 
and  modifying  them  to  produce  and  format  data  needed  in  the  second  phase. 
Although  no  documentation,  apart  from  these  computer  listings,  was  avail¬ 
able  to  explain  the  algorithms  used,  they  appear  to  conform  to  other  pro¬ 
grams  in  use  at  SAGA. 

DAMAGE  was  validated  to  compute  the  same  results  as  PD  CALC  and 
DE  CALC  by  comparing  them  to  various  test  cases.  No  algorithms  in  the 
original  were  altered  or  modified  in  any  substantive  way;  however,  portions 
of  structurally  "dead"  code  (such  as  BASIC  lines  3200-3290  in  DE  CALC)  and 
unreferenced  variables  were  identified  and  removed. 

The  main  component  in  DAMAGE  initializes  data  tables,  reads  weapon- 
system  and  target  data  from  data  files,  and  prepares  the  DE  matrix.  Seven 
subroutines  that  support  the  computations  perform  the  functions  listed  in 
Table  1.  The  BA5IC  line  numbers  are  provided  as  a  cross-reference  to  the 
TEKTRONIX  listing  in  Appendix  A. 


TABLE  1.  DAMAGE  SUBROUTINES 


Functi on 

Interpret  VNTK  input 
Prepare  and  write  DE  matrix 
Compute  DE 

Compute  weapon  radius 

Compute  optimum  burst  height 
(air-burst  assumption) 

Compute  destruction  probability 

Sort  DE  matrix  entries 


3.  Data  Structure  Descriptions 

Because  of  TEKTRONIX  memory  constraints,  the  force  balance  allocator 
was  designed  to  accommodate  up  to  20  weapon  systems  and  80  target  classes 
within  each  objective.  In  addition,  to  conserve  computer  memory  and 
accommodate  output-table  requirements,  several  packed  data  structures  were 
used  in  the  model.  Communication  between  the  two  automated  phases  (and 
consequently,  modules  DAMAGE  and  ALLOCATE)  occurs  through  data  files.  The 
data  files  will  be  described  later. 

Important  variables  in  the  allocation  model  are: 

T  (,)  This  80-target  by  20-weapon  DE  table  contains  DEs 

ordered  within  each  row  into  two  halves  and  sorted 
within  each  half  by  increasing  DE.  The  left  half 
refers  to  the  missile  weapons^  the  right  half  to 
bomber  weapons.  In  phase  one,  DAMAGE  computes  the 
DE  of  every  weapon-type  applied  to  each  target 
CLASS.  The  weapon-type  index  and  the  DE  against 
target  CLASS  is  encoded  into  row  CLASS  in  array 
T(,)  in  the  form  "vx.yz,"  where  "vx"  is  the  two- 
digit-integer  weapon  index  and  ".yz"  is  the  damage 
expectancy.  After  first  weapon  allocation  in  phase 
two,  T(,)  encodes  the  number  of  weapons  of  given 
type  applied  as  "stuvx.yz ,"  where  "stu"  is  the  num¬ 
ber  of  weapons  applied  of  type  "vx"  with  DE  of 
" .y z . " 
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D  (  ) 
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N  (  ) 


This  20-element  array  describes  the  number  of 
weapons  (remaining)  in  the  arsenal. 

This  80-element  packed  array  describes  target 
goals.  The  fractional  two-digit  part  is  the 
moderate  DE-level  sought.  The  integer  four-digit 
part  encodes  goal  type  as  the  high  order  digit 
(critical  MIDE  as  1,  critical  IDE  as  2,  time  urgent 
MIDE  as  3,  and  time  urgent  IDE  as  4).  The  second 
highest  digit  is  0,  1,  or  2,  depending  on  whether 
coverage  or  moderate  or  high  goals  are  sought.  The 
remaining  two  digits  are  the  high  DE-level  sought, 
expressed  as  a  percent. 

This  80-element  array  represents  the  total  goal 
deficit  for  each  class.  For  an  MIDE  class,  DE 
"points"  are  defined  as  the  product  of  the  DE  level 
sought  and  the  number  of  targets  in  the  class. 

Then  for  MIDE  targets,  D  (  )  is  the  number  of  DE 
points  that  remain  to  be  achieved,  expressed  as  a 
negative  number.  For  IDE  targets,  D  (  )  is  the 
number  of  targets  that  have  not  been  damaged  to  the 
specified  level,  also  expressed  as  a  negative 
number. 

This  array  implements  a  data  stack  (with  stack- 
pointer  AO)  of  packed,  second-weapon  allocations. 
The  entries  are  of  the  form  "stuvx.yz."  The  three 
high-order  digits  "stu"  represent  the  number  of 
type  "vx"  weapons  compounded  with  first  weapon  type 
"yz"  applied  to  a  target  class. 

This  80-element  array  contains  the  number  of  tar¬ 
gets  in  any  class. 


4.  Allocation  Program  Logic 

The  ALLOCATE  programs  consist  of  15  subroutines  with  functions  that 
are  listed  in  Table  2.  The  BASIC  line  numbers  refer  to  the  TEKTRONIX  com¬ 
puter  listing  in  Appendix  A.  The  names  are  provided  to  guide  cross- 
referencing  to  the  annotated  listing  in  Appendix  B.  The  annotated  listing 
describes  the  decision  logic;  for  example,  "ALLOCi"  describes  first  weapon 
selection  and  "ADD"  describes  second-weapon  selection  scanning. 

For  the  first  weapon,  ALLOCI  allocates  the  lowest  DE  weapon  that  meets 
the  goal.  If  no  available  weapon  meets  the  goal,  the  highest  DE  weapon 
available  is  allocated.  Time  urgent  targets  get  missile  weapons,  whereas 
time  critical  targets  get  bomber  weapons. 
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ADD  selects  bomber  weapons  as  the  second  weapon.  For  MIDE  targets,  it 
selects  the  highest  DE  weapons  available.  Otherwise,  it  selects  the  lowest 
DE  weapon  which,  when  compounded  with  the  first  weapon,  meets  the  DE  goal. 
If  such  a  second  weapon  is  not  found,  the  highest  DE  weapon  available  is 
selected. 

The  allocation  program  logic  incorporates  several  features  that  were 
suggested  by  SAGA  personnel  after  review  of  earlier  versions  of  the  pro¬ 
gram.  It  also  has  many  features  designed  te  provide  flexibility  to  accom¬ 
modate  change.  The  decomposition  into  phases  and  program  block  structure 
allows  the  user  to  insert  additional  decision  rules;  for  example,  after  all 
time  urgent  target  requirements  are  met,  missile  weapons  could  be  used  as 
second  weapons. 

Besides  goal  attainment,  a  coverage  methodology  could  be  employed  that 
would  allocate  one  weapon  for  each  target,  selecting  the  highest  DE  weapon 
remaining  in  the  arsenal  to  be  applied  next. 


E.  USER  INFORMATION 

This  section  describes  file  organization  and  program  execution.  Pro¬ 
gram  execution  is  conducted  via  TEKTRONIX  BASIC  drivers  that  access  three 
user-created  files  of  BASIC  DATA  statements  saved  as  disk  files.  Phase  one 
requires  two  user-prepared  files:  ARSENAL,  describing  weapon-systems,  and 
TGT.DB,  describing  the  target  database.  Phase  two  requires  the  file 
INVENTORY,  which  provides  the  quantities  of  each  weapon  type  available  for 
allocation.  Communication  between  the  two  automated  phases  (i.e.,  passing 
the  DE  matrix)  occurs  via  file  DE.TBLE  created  by  DAMAGE  in  phase  one  and 
accessed  by  ALLOCATE  during  phase  two.  DE.TBLE  records  the  data  structure 
T  (,)  described  In  the  previous  sermon.  The  BASIC  drivers  (called 
" PHASE  1"  and  "PHASE2" )  use  the  dirt  .  commands  APPEND  and  DELETE. 

The  number  of  classes  cannot  be  greater  than  80  (per  objective),  and 
the  number  of  weapon-systems  cannot  exceed  2D.  If  more  computer  memory  is 
available,  this  restriction  can  be  removed. 


10 


TABLE  2.  ALLOCATE  SUBROUTINES 


Name* 


ALLOC  1 
DEGOAL 
SCAN(r) 

$CAN(1  ) 

HOWMNY 

APPLY 
ALLOC 2 

ADD 

SCANLF 

APPLY2 

SCANRT 

REPORT 


Function 


Data  declaration  and  program 
control 

Input  weapon  inventory 

Input  DEs  for  classes  within 
an  objective 

A1 1 ocate  first  weapon 

Unpack  goal  levels  and  types 

Scan  right  in  DE  table 
(first  weapon) 

Scan  left  in  DE  table 
(first  weapon) 

Determine  how  many  weapons 
of  given  DE  fill  need 

Apply  first  weapon 

Determine  if  shortfall  exists 
(needs  second  weapon) 

Try  to  attain  goal  by  second 
weapon 

Scan  left  in  DE  table 
(second  weapon) 

Apply  second  weapon 

Scan  right  in  DE  table 
(second  weapon) 

Display  results 


BASIC  line  numbers 
(Appendix  A) 

1000-1115 

1120-1205 

1210-1265 

1270-1345 

1350-1440 

1445-1580 

1585-1695 

1700-1750 

1755-1830 

1835-1925 

1930-2065 

2070-2175 

2180-2255 

2260-2390 

2395-2525 


*Cross-reference  to  annotated  listing. 
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1. 


Target  Database 


BASIC  DATA  statements  beginning  at  line  4000,  and  saved  as  disk  file 
TGT.OB,  contain  the  following  information: 

•  Number  of  objectives 

•  Number  of  classes  in  first  objective 

•  First  class:  descriptor  (six-character  literal) 

goal  type  (i.e.,  type  1,  2,  3,  or  4) 

VNTK  (four-character  literal) 
radius  (in  feet) 
number  of  targets 
high-DE  goal 
moderate-DE  goal 

•  Second  class:  descriptor 

goal  tvpe 

VNTK 

radius 

number  of  targets 
high-DE  goal 
moderate-DE  goal 


•  Last  class  (In  first  objective) 

•  Number  of  classes  in  second  objective  (followed  by  second 
objective  classes  as  shown  above) 


•  Last  class  (In  last  objective). 

An  example  of  the  file  setup  would  be: 

4000  DATA  1 
4005  DATA  4 

4010  DATA  "TGT 1" ,4, "40P2" , 100, 25,0.9,0.5 
4015  DATA  "TGT2", 4, "38P5", 100,73,0.5,0.5 
4020  DATA  "TGT3" , 3, "5 1L4" ,  100, 300,0. 7,0. 5 
4025  DATA  "TGT4", 3, "48P7" , 100,653,0.8,0.8 

As  noted  earlier,  the  goal  type  Is  encoded  as  an  integer:  critical 
MIPF  rs  1,  critical  IDE  as  2,  time  urgent  MI DE  as  3,  and  time  urgent  IDE 
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In  addition,  target  hardness  (vulnerability  index  VNTK)  has  the  fol¬ 
lowing  restrictions: 


The  target  type  must  he  one  of:  L,  M,  N,  0,  P,  Q,  R  $  t 
or  D,  and  *  * 

VN  cannot  exceed  four  for  X-type  targets. 


U,  X 


2.  Arsenal  Database 


BASIC  statements  beginning  at  line  3000  (up  to  3999),  and  saved  as 
disk  file  ARSENAL,  contain  the  following: 

•  Number  of  missile  weapon  types 

•  First  weapon:  descriptor  (six-character  literal) 

yield  (in  kilotons) 

CEP  (in  feet) 

generated-case  arrival  probability 
day-to-day  arrival  probability 

•  Second  weapon:  descriptor 

yield 

CEP 

generated-case  arrival  probability 
da.y-to-day  arrival  probability 


•  Last  missile  weapon 

•  Number  of  bomber  weapon  types  (followed  by  weapon  parameters  as 
shown  above 


Last  bomber  weapon. 


■v.' 

V* 

s" 


O 

bi 


R 


J 

mf 

J 

✓ 

! 

w 


An  example  of  this  file  structure  would  be: 
3000  DATA  5 

3005  DATA  "i  c 1" , 200, 750,0. 88,0.88 
3010  DATA  "ic2", 325, 500, 0.86, 0.86 
3015  DATA  “si  1", 60, 1000,0.81,0.81 
3020  DATA  "$1 2" , 100,900,0.84,0.84 
3025  DATA  "si  3", 350. 500, 0.88, 0.88 
3030  DATA  4 

3035  DATA  "bml" , 1000, 500,0. 58,0. 55 
3040  DATA  "bm2" ,250, 1000,0.62,0. 51 
3045  DATA  "bm3" , 750, 500,0. 8,0. 75 
3050  DATA  "bm4" , 200, 385,0. 72,0. 65 


3.  Inventory  Database 

BASIC  statements  beginning  at  line  3000,  and  saved  as  disk  file 
INVENTORY,  contain  the  number  of  missile  weapons,  the  quantities  of  each 
missile  weapon,  the  number  of  bomber  weapons,  and  the  quantities  of  each. 

The  following  example  shows  the  quantities  of  nine  weapon  systems, 
five  missile  and  four  bomber  types. 

3000  DATA  5 

3005  DATA  1000,1000,1500,1000,500 
3010  DATA  4 

3015  DATA  1000,1000,1000,1000 


4.  Program  Execution 

After  the  data  files  are  created  and  saved  on  the  disk,  the  automated 
first  phase  is  executed  by  running  the  BASIC  driver  "PHASE1."  This  program 
produces  the  DE  matrix  as  screen  output. 

When  phase  one  Is  completed,  the  second  phase  is  executed  by  running 
the  BASIC  driver  "PHASE2."  The  program  will  call  for  user  input  to  select 
computation  for  "generated"  or  "day-to-day"  cases  and  for  damage  goal 
levels  moderate,  high,  or  coverage.  (The  program  currently  computes  either 
moderate  or  high  goals  specified.  The  coverage  methodology  is  not  imple¬ 
mented.  If  coverage  is  specified,  the  program  defaults  to  moderate  level 
goals. ) 


% 
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The  program  produces  weapon  allocations  tor  each  target  class  (by 
objectives)  as  screen  output  by  displaying  the  modified  DE  matrix  and  the 
second  weapon  allocation  stack  described  earlier.  The  output  format  (as 
well  as  the  data  structures  described  earlier)  is  modeled  after  existing 
forms  SAGA  uses  for  manual  sequential  allocation. 

Table  3  shows  sample  output  for  25  IDE  targets,  using  the  data  from 
the  previous  section,  after  two  rounds  (i.e.,  the  first  and  the  second 
weapon  allocation),  trying  to  achieve  a  DE  of  0.90. 

TABLE  3.  IDE  SAMPLE  OUTPUT 

First  Round  Second  Round 


de  25 

-25 

tu-ide  25 

3.15 

3. 15 

4.28 

4.28 

1.52 

1.52 

2.79 

2.79 

2505.81 

2505.81 

7.28 

7.28 

6.57 

6.57 

9.68 

9.68 

8.78 

8.78 

2508.05 

The  first  round  shows  25  time  urgent  IDE  targets  and  a  shortfall 
(shown  by  -25)  in  meeting  the  DE  goal.  DE  array  elements  (i.e.,  entries  in 
T  (,))  corresponding  to  this  class  show  the  missile  DEs  applied  to  this 
class  followed  by  the  bomber  DEs  in  the  packed  format  described  earlier. 

In  particu’ar,  missile  system  three  attains  a  DE  of  0.15,  four  attains 
0.28,  one  attains  0.52,  two  attains  0.79,  and  five--the  system  applied  to 
each  target  in  the  class--at.tains  0.81  per  weapon  on  this  target.  Because 
the  goal  (i.e.,  0.90)  is  not  met  on  any  target,  the  shortfall  on  all 
targets  is  indicated.  The  bomber  weapons  applied  to  this  target  class 
achieve  0.28  from  system  seven,  0.57  from  system  six,  0,68  from  system 
nine,  and  0.78  from  system  eight. 

The  second  round  shows  25  targets  with  "0"  indicating  that  no  short¬ 
fall  remains.  The  DE  matrix  entries  are  repeated  followed  by  second  weapon 


allocation  stack  (the  array  A  (  )  described  earlier).  The  entry  "2508.05" 
indicates  that  25  system  eight  weapons  are  compounded  with  25  system  five 
weapons,  which  were  applied  in  round  one. 

Table  4  illustrates  output  for  the  653  MIDE  targets  against  which  0.80 
OE  is  sought.  The  fir  round  shows  that  478  system  two  weapons  (at  0.67 
each)  and  175  system  five  weapons  (at  0.70  each)  were  applied  against  the 
target  class.  The  shortfall,  expressed  by  the  "-80,"  is  resolved  after  the 
second  round  by  compounding  327  system  eight  and  system  two  weapons.  These 
compound  weapons,  151  type  two  and  175  type  five  weapons,  achieve  the  MIDE 
goal  for  this  target  class. 

TABLE  4.  MIDE  SAMPLE  OUTPUT 


First  round 
tu-mide  653  -80 

3.07 
4.15 
1.35 
47802.67 
17505.70 
7.18 
6.55 
9.59 
8.74 


Second  round 
tu-mide  653  0 

3.07 
4.15 
1.35 
47802.67 
17505.70 
7.18 
6.55 
9.59 
8.74 

'2708.02 


16 


4.‘  nJV  %.  •-  « r  a  i  « 


•  v  v  rs  > 


i 


* 

* 


Appendix  A 

TEKTRONIX  COMPUTER  ALLOCATOR  MODEL  LISTINGS 


"PHASE 1 "  DE  Driver 


I 

r. 

jj 

\ 

* 

3 


100  KK1NI  *L  AI.LUt'A  ft  * 

105  KK1NI  *PHASt  1* 

106  f1=M£MUKY 

110  APPtNU  *  DAMAUt  *  »  1  000  >  5 
115  APPtNU  ‘  AhSL'NAI.*  i  J000.5 

120  APPtNli  *  fU  f  .  l'U*  S4000.5 

121  Kl'.SIUkf 

125  OOSUO  1000 

126  PklNI  ‘tHAtt  1  CUMPLtlf 
12/  PPSlUkt 

135  LltLtlt  1005.6000 

136  UtLfcft  B.W.fc.P  .(j.U'Kt.Ct.L*.  f».U*.X*,2* 

13/  DtLfc  ft  l»J»C/»Jl.f1»2.N.Ul» 02 » L»  0 . P » f *  V » S « K  >  JJ >  !_0  '  L 1  .Ho 

ua  Dti.t  rt  i4.io.yj. y4.oi.u.ki .pv.uv 

1000  NfcM  r Aklifc  f  POP  APPt'NUS 

30 00  kKM  lAKUtr  KOK  APPtNUii 

4000  KP.M  lAKOtf  PUK  APPtNI.15 


I 

) 

I 

I 

• 

i 

i 


i 


*i 

l 

a 

.1 

i 


i 
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"PHASE2"  Allocation  Driver 


loo  Al-rtNU  ‘si  locate"  i  looo. t, 
110  AH-tNU  ‘inventors* iioOO* 5 
120  KK1 N  r  ‘beam  Phase  2‘ 

130  UOSUK  1000 
140  KK1NT  ‘Phase  2  complete* 
1000  Kth  target  t or  append 
3000  Kk'h  target  tor  append 


DAMAGE 


1000  KKM  ADAK'IAIIUM  UK  DKLAl  L'  AN!'  KD  CALL  . AU2U5 f  1982 

1005  KKM 

1010  KKM  prepared  by  dr,  stetin  shi ier 

1015  KKM  system  Planning  eorp.i  1500  uilsor.  hivd. 

1020  KKM  arlir.Ston.  va,  22209.  telephone  702-1)41-2621 

1025  KKM  K'KKK'AKtD  KUK  JCS/SAUA/ SKD  KUK  Ubt  IN  KL'KL'K  BAl.ANLt  AU-UCATIUN 
1020  KKM 

1025  I'lM  K'<7»  4  )  »l<<  A  » 18)  »t  <4, 2> 

1040  HIM  D<5»20> ,U<2> 

1045  HIM  G(6»5) 

1050  KtM  bIKINli  VAK1ABLK  Sl/KS... 

1055  HIM  B*< 4 ) ,L*< 12) , 2*( 1 > »X» <2> »C» < 1 ) . A*< 200) , f»(6 > »U* (A) 

1060  KKM  st'f  CUNUIANf  f  AIU.KS .  .  .  fHKGUUH  LINK  1120 
1065  U<  1  )  =  1 . 04 16/ 

10/0  0(2) =1.0989 
1075  L*= ' LKMMUKSU f  UXD * 

1080  KKM 

1085  KUK  J=1  105 

1090  KUK  1=1  IU  6 
1095  Kt AD  8(1 . J) 

1100  NKXf  1 
1 105  NKX  f  J 

1110  L'AIA  1.8622. -2.227, 2. 0/71. -1.4128, 0.40248,-0. 045266 
1115  L'AIA  1 . 84  J. -2.  0865. 1  .  7286.-1 ,06.55. 0.28257, -0.028466 
1 120  UA I  A  1 . 8095.-2.858. 1 . 2925 » -O . 6222 . 0 . 1 2978 . -0 . Ol 1 6 72 
1125  DA  r A  1 . 7671 . -2.626. 1 .006. -0.25646. 0.06215. -0.0040752 
1120  DA  I  A  1 .6984.-2 . 2264.0. 74818.-0. 18782 .0 . 022284 , -  0. 0010852 
1125  KKM 

1140  KUK  J=1  IU  4 
1145  KUK  1=1  IU  7 
1150  Kt AD  K  (  1  . J) 

1155  NKX I  1 
1 160  NKX I  J 

1165  HA  '  A  8.214.-0. 1 1 1 8 . 5 . 265t -4 . 2 . 1 62K-5  •  -6 . 628t  -  7  »  7 .  122K.-V 
1170  L'A  fA  -2 . 0642- J  1.8.415.-0. 1022.  -7. V08K- 4 . -9 . C2VL-5 . 1 .4582-5 
1175  L'A  f A  -5. 22K-7 .5. 726K-9 .8. 782.-0. 1 255.0 , 002255 . -2 . 0B6L - 4 
1180  DA  LA  V. VO  It -6. -1 .  8/2K-7. 1 . 2  !7K— 7.8 . 789. -O . 1 12.-6. 65UL -5 
1185  L'A  f A  -5.802t-4 .5.852K  — 5.-1 . 905K-6 . 2 . 056K -8 
1190  KKM 

1195  KUK  1=1  IU  4 
1200  KUK  J=1  fU  18 
1205  Kt AD  DC  J . J) 

1210  NKXf  J 
1215  NKX  L  1 

1220  UA I  A  -0.5  779.-1 .274.-1 . 95/ . -2 . 805 . -2 . 812 . -5 . 051  .-6-658.-8.926 
1225  I'A f A  -12 . 72. -O . 2889 , - O . 61 1 9 . -O . y 782 . - 1 ,401.-1.901. -2. 509 .-2 . 284 
1220  L'AIA  4,242.-6.01. 1 . 569 . 2 . 22  »  5 . 252 . 7  .  742  »  1  0 . 72 , 1  4 . 62 . 20 . 2  »  28  .  Vr> 

1  225  I'A  I  A  45.0 . 7989 . 1  .  729.  2 . 82  7 . 4 . 1  96  »  5  .  "1  5 . 8  •  1  79 , 1  1 . 2L  '  •  1  6 . 05  •  24 . 42 
1240  L'A  f A  0.0012/6.-0. 002069. -0,04772. -0.2. ’52. -0.8418.-  2.275,-5.982 
1245  DA  I  A  -14 .22,-25. 56,-0. 02991 » -0.1869.-0.5116,-1 . 1 22 . - 2 . 22 » -4 . 1 1 6 
1 250  UA  f A  -7 . 256 , - 1 2 . 2 1  , -25 . 2 7 . -o . 006  2 1  ,-0.0  4  605,-0 .15  45,-0.245/ 

1255  L'A  f  A  -0.5125,-0 .4/69,0 . 2  1 51 . 2 . 1  1  5  »  12 . 22  ,  O  .  00 1  1 52  »  O  .  0091,42 
1260  DATA  0. 5145,0 . 1812.0. 4847, 1 . 1 2,2 . 276,4 . 907, 10 . 64 
1265  KtM 

1270  KUK  J=1  IU  2 

1275  K  t  A  I'  t(l,J>»t(2,J)»t(2,J>,t(4,J> 

1 280  NK  X  r  J 

1285  DA  I  A  7. 1 71 ,-0.0251 ,-0.001886,2. 27Ht-5 
1290  DA  f A  7. 154, -0.1576, 0.005228, -6. 618t-5 
1295  KKM 

1300  KKM  UNKNUWH  5LIUL.H  f  i5  L'AMAbt  t  XKtl- i  AML  t  U.L.,  K ) 

1205  KtM  LONS  f  AN  f  KUK  I8f  l'  1  5  fK  1  DU  I  J  UN5  ,  U5tD  JN  Kb  lAI  LUlA  i  uJN 
1210  KKM  <0.4  UN1KUKM,  0.221  NUKUAi.  ) 

1315  L 7=0. 221 


DAMAGE"  (cont.) 


1320  kem 

1325  REM  lit  f  WEAPON  OrtfA 
1330  REM 

1340  KEM  NO.  UkbtNr/YIEI.OtChE»KA-lir»»EA-imi»  .  .  . 

1 343  READ  UO 
1350  e OR  J«1  ro  UO 

1355  READ  Wt .  l>  ( 1  t  J )  .  IK  2  >  J  >  *  0  ( 3*  J)  f IH  4  .  J ) 

1340  NEXf  J 
1345  REM 

13/0  REM  SAME  E OR  LRIULAl. 

13/5  READ  BO 
1380  y OK  J=1  10  BO 

1385  Jl-J+UO 

1390  READ  Wt.lK  1  *  J1  )  »U(2f  J1  >  ,D<  3,  J1 )  f!H4f  J1  ) 

1395  NEXT  J 

1400  REM  DELETE  3005»50'20 
1405  WO~UO+BO 
1  4  1C  REM 

1415  REM  MAIN  EGOLESS  LOOT'  ************************************ 

1420  OPEN  *DE .  TBLE  *  >  3  »  *  E • » At 
1430  REM 
1435  READ  01 

1440  ERIN  T  *3:01 

1441  PRINT  01 
1445  EUR  0*'l  TO  U1 
1450  READ  LI 
1455  E'RINf  *3  *  L 1 
1454  E  RIN  I  LI 
1440  EOR  L=1  TO  LI 
1445  READ  f*.Mt B».Z»NfG1.02 
1470  UUSUB  1515 
14/5  bUSUB  1/50 
1480  bUSUD  1430 
1485  NEXf  L 
1490  NEXf  0 
1492  LLOSE  3 
1495  RE  TORN 
1500  REM 
1505  REM 

1510  REM  SUBKOOflNt  10  INfERE'KEf  ON  f  K  INPUT 
1515  Z*=SEb<B«»LEN(B* J  1.1) 

1520  P-PUS  (14,21,1) 

1525  IE  E'  I  HEN  1540 

1530  PRINT  *  f  YE'E  MUST  BL  L  ,  M ,  N  ,0 ,  E  » U ,  h ,  S  ,  T ,  U ,  X  ,  D‘ 

1535  SfOR 

1540  X*-SEU<B*» 1 ,LEN(B»)-2> 

1545  V-VAL ( X* ) 

1550  IE  Ex 4  OR  P-12  AND  0:5/  UR  (EX11  AND  0,35)  f HE.N  15/0  ‘ 

1555  IE  P=U  AND  0>0  AND  0'--^4  fHEJN  1580 
1540  E'RINf  *  ON  IS  OUl  UE  RANUE  EUR  TUT  T  YE'E  * 

1545  STOP 

1570  IE  EX  12  THEN  15bO 
1575  E=5 
1580  8*0, 1*P 
1585  I  *E’ 

1590  IE"  E*ll  f HEN  1420 
1595  IE  Ex6  THEN  1405 
1400  S- S-0 . 5 

1605  L*-SEb(B*,LEN(B* ) , 1 ) 

1610  K*  VAl  <  L* ) 

1615  RETURN 
1620  K*0 
1625  RETURN 


20 


DAMAGE"  (cont.) 


1630  KEH  SUSkOUflNE  TO  PREPAR+:  ANH  UKJ  ft  I  ANLE 
1635  KOk  JJM  TO  WO 
1660  L'  <  5  >  J  J  >  =  J  J  HI  <  5 1 J  J  > 

1665  NEXT  Jl 
1650  LO-1 
1655  L1*U0 
1660  G05U8  2060 
1665  L0=U0+1 
16/0  L1-U0+80 
1675  GUSU8  2060 
i6bo  print  #j: r* 

1681  KK1NT  *J:»* 

1682  kkiNr  »j:n 

1683  PRINT  #3  *M$1 00+1N  f (G1 *  100) +G2 
1686  PR1N1  mG«»NfM*100+lNr<(»l*100>+G2 
1715  +  UK  JJM  10  WO 

1720  PklNf  »J!  USING  1 7251 (H  5*  JJ ) I 

1721  PRINT  USING  1 /2S  S  l*(5 » J  J )  S 
1725  IMAGE  JO.  2d 

1730  NEXT  Jj 
1765  KEIURN 

1750  KEH  SUBkUUIlNt  10  LUMPUfE  UhS 
1755  MOM 
1760  .11*1 
1765  16*1 

1770  1+  I <6  IHEN  1/80 
1775  16*-2 
1780  I8M0*S 

1785  Nth  LOOP  UM  JJ 

1 7V0  +0k  JJM  TU  WO 
1795  YJ=0<1»JJ)'<1/J) 

1800  1+'  1  =  11  fHKN  1815 

1805  GUSU8  1860 

1810  G0S08  1935 

1815  J6=JJ 

1820  J5M 

1825  GOSUM  lYOO 

1830  1K5. J3)=P*y<3» J3» 

1835  2«=SLU(Lt. fill 

1860  KEH  +'KINT  t*A!  USING  1 0551 V.  2*  » k  » 01 1 IU  1  >  J3 >  .  IH  2»  J6  > 
1865  KEM  PKINr  HA".  USING  6501  HOrW»  ht LU3  *  Jj )  .111 
1850  NKXf  JJ 
1855  RETURN 

1860  REM  SUGKGUlINE  TU  GUMPU  fK  WEAPUN  RADIUS 
1865  Y6M/Y  3 
18/0  V1*0 

1875  1+  K=0  fHKN  1EVO 
1880  J=9«16-V+K 

1885  01=0+8(  1  .  J)+Y6*<8(2,  J)  +Y6*(8(  J.  J)  +  T6*»(6r  J  >  >  > 

18V0  JM6  +  2 
18V5  «>+</•  J) 

1900  +uk  1=6  ru  l  step  -l 

1905  U=U*Vl+(  <1, J) 

1910  NEX)  1 
1915  W-YJ*EXP(W) 

1920  U=W/<U(16)*<1-S "2> > 

1925  KHOK'H 
1930  HEM 


DAMAGE"  (cont.) 


193b  K'KM  SUdKOUriNK  (U  LUfll'U  ft  01’  f  I  MUM  HUH 
1940  11  14-1  UK  01=  -15  CHIN  1  VOS 
194b  H0  =  1661*tXl’< -0.061  3B4U1 
1950  GO  10  I960 

1905  HO  =  tXl’(t  <  1  » 14 l+Vl* (£<2. 14>+01*<t (3. 141+OlSt  <  4. 14  >  1  )  ) 
I960  H0*rJ*HO 
1965  RKCURN 
1970  KfcM 

197b  k’l.H  bUdKUUflNt  TO  CUMl'Ult  1  ll 
1 980  11  IH0»J4>  I  HI. N  1995 
19fcb  K=1 
19V0  KKfUK’N 

19V5  KlrW/SUKUH  J4)  J1U/*.  J) 

0000  11  6  =  0.1  AND  K'l  3  1  HI.  N  l‘7d5 

OOob  IK  6  =  0.2  AN  1 1  kl  3-5  IH1.N  1965 

0010  11  6  =  0.3  AN  1.1  K1  4.b  1H1.N  1985 

OOlb  11  b  =  0.4  AND  HI  6  fHl.N  1985 

OOOO  IK  6=0. b  AND  K1  a  I HKN  1 VBb 

000b  11  K'l  >0.1  fHKN  0040 
2030  i'=0 
003b  KKfUK’N 

0040  FV-kl  *  <  b  (  b.  jaUKltUlA.  10)  1 

004b  l’V-(j(  1  f  ib>  +  Kl«U3<  0»  id>+kl*<Ul3»  18)+Kl*(b(4  .  lUlll’V  1  )  ) 

2060  l'  =  txi’< -txi’<l-y  >  > 

2055  RkiURN 

2060  Kl.lt  subroutine  to  oroor  ir.  table 
2065  IK  H -10  0  IHtN  0110 
20/0  1  UK  1 =L 0  + 1  fU  LI 
00  75  1UK  J— L  0  IU  1 

2080  11  IK5»  1  1-1N  I  U'(b»l  )  )  >U(6*  J1-1N1  ( IKb*  J)  )  I  HI.  N  2100 
Ooob  119  =  11  (  b»  J) 

0090  UC5. J) =D<5f 1 ) 

20V5  U(b*i )=U9 
2100  NKXI  J 
010b  NKXI  I 
2110  KirUKN 

0115  Ktn  KKUOKAH  1UK  Ut/lU  LUHLLUUtU 

2120  K-KM  Rt'fUKN  SfAftHKNl  IN  MAIN  l'KUCt66  LOUP 

3000  K-KM  I  Ak'Gt  f  I  UK  AfftNU 

4000  kt'fi  target  tor  aeeend 
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ALLOCATE 


,+  *  f 

r\‘ 

\'j 

1 


ii 


ii 


n 


1000  KtM  allocation  frosrsii . September  1V82 

1005  KtM  . 

1010  KtM  prepared  by  Or.  Stefan  Shrier 

1015  RKM  System  Planning  Corroratiorn  1500  Wi.son  Klvd. 

1020  kt'M  Arlington.  Va.  2220V.  <  703 ) -04  1  - 3621 

1025  Kt’M . 

1030  KtM  prepared  tor  JCS/SAUA/St U 

1 0 J5  Kt’M . . 

10*0  HIM  I <80. 20) . A( 20) > 0(00) .  U< 80) I 0<2O) .N<80 ) 

104.-1  HIM  A* < 300) .k* ( 1 > 

1050  t'RINf  ‘end  of  declarations* 

1055  U0SU8  1120 
1060  tOk  0=1  fU  01 
1065  00500  1210 
1070  tOk  C=1  fO  01 
10/5  UUSU8  1275 
1080  0(J5U8  23V5 
1085  NKX f  0 
10V0  tOk  0=1  10  01 

10V5  UUSUK  1845 
1100  UUSUB  23V5 
1105  NtXf  0 
1110  NkXI  0 
1115  KtrOKN 

1120  Kt’M  subroutine  to  mrut  toadies  ar-d  weapon  inventors 
1125  HklNf  *gtd-0  or  dtd-1  <3td  override) ‘ 

11  SO  INPUf  k* 

1135  PRINT  'degoal  cov-Oi  «od~l.  or  hi-2* 

1140  INPUT  Hi 
1145  KtM  echo  here 
1150  k K A l.i  UO 
1155  t  OK  J=1  f(j  00 
1160  KtAO  W(J> 

1 165  NtX I  J 
1  1  70  KtAli  80 

I  1 75  t  UK  J=1  f(j  80 
1180  KtAO  WTJ+UO) 

1185  Nt  2  T  j 

I I  VO  U0  =  U0+80 

liy5  Ut'tN  *de . tble' ( 1 . * r • . A« 

1200  INPUT  fllUl 
1205  KtTUKN 

1210  ktM  subroutine  to  input  des  fur  classes  within  objective 
1215  1NPUI  *11  LI 
1220  tOK  C-l  fU  LI 

1225  INt'Ui  *1  !  ft 

1226  1  NkU  I  tl.'KS 
1230  1NPUI  «1:N(L) 

1235  INPUT  *1  :ti<L) 

1240  tOk  J=1  TO  00 
1245  iNtUi  *1 : f (L. J; 

1250  NLX I  J 

1255  Ntxr  L 
1260  LLUSt  1 
1265  KKTUKN 
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ALLuCATt"  (cont.) 


1270  K'tM  . 

12/5  KkTM 

1280  ktrt  subroutine  a  1  loc 1 --31 locate  first  weer-on 

1285  A0=0 

1290  UU8UU  1350 

129b  kk.M 

1300  k3=l 

1 30b  IK  K3=0  I HLN  1340 

1310  OOSUK  1445 

131b  lk  J0=0  THtN  1330 

1320  0U8UH  1760 

1325  00  fO  133b 

1330  1-3  =  0 

133b  00  TO  130b 

1340  ktfl  while-end  (1430) 

1345  ktVUKN 

1350  Kk'M  . 

135b  KKkl  subroutine  deaoai  —  unt-ack  aoals  and  categories  tor 
1360  KEM  categories  (tu/crit  and  idc/«.ide>  <->  flags  tl  truJ  t  2 
1365  UO=inf( IN  I  (0(C) )/100) 

1370  k 1=00=1  OK  00=3 

137b  KEM  flag  for  <M)ide  set.  now  set  urgent/critical  tiaa  t2 

1300  K2*0C>=>3 

138b  00  =  0(0/100-00 

1390  KEMswitch  hi  for  level  goals  was  read  in  earlier 
1395  IK  HI *2  IHEN  1410 
1400  00»0(0-1NI  (0(0  )  ) 

1405  00  10  1415 

1410  00=lNf(00*100)/100 

1415  NO*N((j; 

1420  IK  K 1  =0  1  HtN  1435 
1425  IMO—  N0*00 
1430  00  10  1440 
14  35  U(U=-N0 
1440  KtlUkN 

14  45  KEM  . . . 

1450  KEM  subroutine  scan(r)  --  tor  first  weapon 

1455  KEM  scanning  to  the  right  in  the  do  table.  jO  marks  table 

1460  KEM  chosen?  select  first  wear-on  that  meets  'per  wi-h'  »Je  fl 

1465  J0»0 

14/0  LO=l 

14/5  L1-U0 

1480  Ik  k  2  IHEN  14V5 

1485  LO=UO+1 

1490  L 1 =U0+B0 

1495  J=LO 

1500  Ik  J  11  Ok  JOxO  IHk.N  1565 
1505  ll=f(CfJ) 

1510  01  =  1  1  - 1 N  f (  I  1) 

1515  IK  01-00  f HKN  1555 

1520  Jl  =  INr<100*( I  1/100- IN  r<  11/1 00)  )) 

1525  IK  W(JI)=0  I HKN  1550 

1530  JO  =  J 

1535  X=0l 

1540  r=NO 

1545  OUSUK  1/05 

1550  kk.M 

1555  J=J+1 

1560  OU  (U  1500 

1565  kEM  whi.'.e-end  (1635) 

15/0  Ik  JOO  THtN  1580 
1575  0U5UH  1590 
1550  KEIUKM 


ALLOCATE"  (cont.) 


i58b  kk  ,  . 

1SVO  KtM  subroutine  scsn(L)  tor  first  urarori 

15VS  KKM  swap  10  and  ll 

1600  LV-LO 

160b  LO=L  1 

1610  Ll'LV 

161b  J-LO 

1620  If  J=0  OK  J070  fHKN  1600 
1 62b  I  1 » f  <  C » J  > 

1630  Jl=lNI(100*(ll/100-lWf((l/loO)>) 

163b  1 K  W(J11=0  IHKN  1620 
1640  JO  =  J 

164b  oi*-  ri -iNm  i  > 

1650  X=G1 

16bb  Y=NO 

1660  OOSjUK  1/Ob 

166b  KtM 

1670  J=J-1 

16/b  00  10  1620 

1680  KtM  while-end  (1/40) 

1605  KtM 
16Y0  KK1UKH 

16V5  KtM  . .  .  .  .  . 

1  700  KKM 
1705  KtM 

1710  KtM  subroutine  houmnu  --  ards  :ilur-ri  de>  and  w(wpr.  stoct  > 
1715  IK  K1 *0  IHtN  1730 
1720  M^lNKABBdKU)  >/X  +  l ) 

1725  IK  M<=Y  f  KHN  1 73S 
1730  M  =  Y 

1735  IK  M<  =W ( J 1 )  fHtN  1745 
1740  M=W<J1) 

1745  RtfUKN 

1750  KtM  . 

1755  KtM 
1760  KKM 

1765  KtM  subroutine  apri*  --  first  wear-on 
17/0  U( J1 )=W( J1 ) -M 
1775  NO*NO-M 

1700  MCf JO>-l <0* J0)+100*M 

1705  KKM  tj  set  true  it  mora  tats  renal  r,  in  class 
1/VO  K3=N0/0 
1/V5  KKM 

1800  It  K1  I HK  N  1820 
1805  It  U0-U1  IHKN  1830 
1810  lKC;«li<C)+M 
1815  00  fU  1830 
1820  U(L)»1KU)+M*X 
1 B25  tJrlKCMU  ANII  NO  0 
1830  KtfUKN 
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1835  KKM  . 

1840  KtM 
1845  KfcM 

1850  KtM  subroutine  siloed  --  shortfall  to  9cal • . . needs  2nd  uer 
1855  A0"0 

I860  IK  IKC )  *J  0  iHtN  1920 

1865  81=11(0 

18X0  OUbUK  1350 

1875  Kfc'M 

1  880  8<0=U1 

1885  1.0  =  1 

1890  L1=U0 

1895  IK  K2  IHtN  1910 
1900  LO  =U0+ 1 
1905  Ll=UO+KO 
1910  OUbUK  1935 
1915  KfcM 
1920  KfclUKN 

1925  KtM  . . . 

1 V30  KKM 
1935  KKM 

1940  KfcM  subroutine  c dd  —  try  to  achieve  OK  goals 
1V45  K=L0 
1950  K3  =  l 

1955  IK  K.-L1  IHtN  2060 
1960  I  1  =  f ( O  K ) 

1965  Gl  =  fl-INf(  fl) 

19/0  KO=K 

19/5  hi -IN  I < 100*<  I 1/100-lNf ( f  1/100) )  ) 
iybd  IK  H  I HKN  19V0 
1 V85  K3»U1>U0 
1990  Nl«INf ( INf< 1 1 >/100) 

1995  IK  N1=0  UK  t  3  =  0  f  HKN  2045 
2000  IK  fcl  THIN  2015 
2005  U05UK  22/0 
2010  UU  ro  2020 

2015  UUSUS  20UU 

2020  IK  JOO  I HKN  2035 

2025  K3-0 

2030  OU  iU  2045 

2035  UUSUK  21/5 

2040  UU  10  1995 

2045  KfcM  while-end  (3155) 

2050  h  =  K  + 1 

2055  UU  10  1955 

2060  KtM  whi 1  e-end  (3120) 

2065  KLIUKT 


"ALLOCATE"  (cont.) 


20/O  K'tH . 

20/5  KKN  . 

'JOtiO  KfcM  subroutine  sean.it  —  second  ucoror. 

2085  J0=0 

2090  L3=U0+8O 

20V5  L4=Uo+l 

2100  J*L  J 

210b  IK  J  I  4  UK  JO  0  IHfN  2165 
2 110  (2*1 ( L . J ) 

211b  Jl=lNf(100»(  fJ/l'JO-INf  (  (2/ 100)  >  • 

2 1 20  IK  W ( J 1 ) =0  I HLN  2155 
212b  JO* J 
2 1 JO  U2*f2-1NI l 12) 

213b  X=li2-U2*Ul 

2140  Y=N1 

214b  UOiSUfc  1 /Ob 

21 bO  kttl 

215b  J=J-l 

2160  Ull  10  210b 

216b  kt h  uhiie-ena  (3220) 

21/0  KK.rUKN 

21/5  kth  . 

2180  kth  . . 

218b  KKM  subroutine  aruvj  --  2nd  ucar-or. 

21 VO  U( J1 )=U( J} j-M 
21 Vb  N1=H1-M 
2200  AO=A0+l 

220b  A(A0)*M*10O  +  Jl+M/loo 

2210  Ir  )1  IHKN  2230 
221b  1)  OO-Ul+K  1HKN  2245 
2220  l'<t)=lKU  ) +M 
2225  UU  W  2245 
22.*C  1HU=0<  C  )  Kh*X 
22 it  b 3*0' 0(C) 

2240  KtM 

2245  N0  =  H0 -h 

2250  b  6  =  N0  0  ANII  )  J 

2255  KtHJKN 


I 


21 


0 
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ALLOCATE"  (cont.) 


.v 


H 


2:60  KKM . . . .  . 

2265  KKM 

22/0  KKM  subroutine  scsnrt  --  second  weanon 

22/5  KKH 

2280  JO-O 

2285  LO=UO+ 1 

2290  L 1 *U0+80 

2295  J=LO 

2300  IK  J>H  (JKf  J0>0  THKN  23/0 
2305  I  2=  f  <  C  »  J ) 

2310  J1  =  1N  I"  < 100*(  I  2/1 00-1 N I <  12/100) ) ) 

2315  02=  f 2- IN  f ( f2  > 

2320  X=G2-G1 *G2 

2325  IK  G1+X<G0  IHKN  2360 

2330  IK  W(J1)>0  I HtN  2355 

2335  JO=J 

2340  Y=N1 

2345  GUSU8  1/05 

2350  KfcM 

2355  Ki'M 

2360  J=J+1 

2365  GO  10  2300 

2370  kt'M  while-end  (3/25) 

2375  IK  JO.  O  IHKN  2385 
2380  GUSU8  2080 
2385  KK1UKN 

2390  KKh  . . . 

23V5  KKM  subroutine  rer-ort 

2400  GO  TO  INf (U<C)/100)  UK  2405*2415*2425*2435 
2405  t'*-*cr-«iide* 

2410  GO  TO  2440 
2415  t»- *c r- ide • 

2420  00  (0  2440 
24/5  C*=*tu-Bude* 

2430  GO  10  2440 
2 435  C*=*tu-ide“ 

2440  KKH 
2445  K'KINT  C*S 

2450  K-KINI  USING  24551  N<  G ) *  U<  ID  ) 

2455  lhAUt  6d.-6d 

2460  KOk'  J=1  TO  UO-1 

2465  KKIN1  USING  24/01  TIC.JW 

24/0  iMAGt  /d . 2d 

24/5  NKXf  J 

2480  KK1NI  USING  24/01 f<C. WO) 

2485  IK  A0  =  0  I HtN  2520 
2490  KklNl  USING  24951 
2495  1  MAGt"  20x 


1 000 
1005 
1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
1 060 
1065 
1070 
1075 
1080 
1085 
1090 
1095 
1100 
1105 
1 1  10 
1 1 15 
1120 
1125 
1130 
1135 
1  140 
1145 
1  150 
1155 
1  160 
1 165 
1170 
1 175 
1  180 
1 185 
1  190 
1  195 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 
1290 
1295 
1300 
1305 
1310 
1315 
1320 


si 

si 

.S' 


Appendix  B 

IBM  PERSONAL  COMPUTER  ANNOTATED  LISTINGS 


’  ALLOCATION  program..... . . . September  1982 

’  Prepared  by  Dr.  SteFan  Shner 
’  System  Planning  Corporation 

’  1500  Wilson  B1 vd. 

’  Arlington,  VA  22209 

’  Telephone  (703) -841-3621 

» 

DIM  T#(60,20> , A# ( 20) 

DIM  D (80) , 6 (80) 

DIM  W7.  ( 20 )  ,  N7.  ( 80 ) 

DIM  TTY PE* ( 4) 

PRINT  "end  dec  1 ar ati on" 

GOSUB  1130  "get  user’s  control  toggles  and  wpn  inventory 

FOR  OBJ’/.  =■  1  TO  NOBJX 

GOSUB  1180  ‘get  classes  within  this  objective 

FOR  CLASS*/.  =  1  TO  NCLASS7. 

GOSUB  1220  ’ALLOC l 

GOSUB  2285  ’REPORT 

NEXT  CLASS’/. 

FOR  CLASS’/.  =  1  TO  NCLASS’/. 

GOSUB  1740  ’ ALL0C2 

GOSUB  2285  ’REPORT 

NEXT  CLASS’/. 

NEXT  OBJ’/. 

END 

’subroutine  to  input  toggles  and  wpn  inventory 
INPUT  “gtd-0  or  dtd-l“;A« 

INPUT  "de  goals  cov-0  or  mod-1  or  hi-2">  H17. 

OPEN  "inventor"  FOR  INPUT  A3  *1 

INPUTtM,  U07.:  FOR  JX=1  TO  UO*/.:  INPUT#  I ,  W7.  ( JX )  :  NEXT  JX 

INPUT#  1 ,  BO*/.:  FOR  J7.-1  TO  BO’/.:  INPUT#1 ,  WX  <  JX+U07.)  :  NEXT  JX 

W07.  =  U07.  +  BOX:  CLOSE#  1 

OPEN  "de-table”  FOR  INPUT  AS  #1 

INPUT#  1,  NOB  J  7. 

RETURN 

’subroutine  to  input  DEs  For  classes  within  objective 
INPUT# 1,  NCLASSX 
FOR  CLASS’/.  =  1  TO  NCLASSX 

INPUT#!,  A*,  NX (CLASSX) , 5 (CLASSX) 

FOR  JX  =  I  TO  WO’/.:  INPUT #  1 ,  T#  (CLASSX,  JX)  :  NEXT  J7. 

NEXT  CLASSX 

RETURN 


’subroutine  ALL0C1  —  allocate  First  wpn 

AOX  =  0  ’clear  second  wpn  pointer 

GOSUB  1290  ’unpack  the  DEGOALs  For  this  class 


F37.  =  1 
WHILE  F3XO0 

GOSUB  1390 


’Flag  to  scan  more 

’meet  the  class  requirement 

’SCAN  table  For  wpn  to  meet  goal 


IP  JO’/.  >  0  THEN  GOSUB  1650  ELSE  F3X  *  0  ’APPLY  one  else  quit 
WEND 

RETURN 


’subroutine  DEGOAL  —  unpack  goals  and  categories  For  class 
’  categories  (tu/crit  and  ide/mide)  < — >  Flags  FI  and  F2 

GO  «  INT  (INT  (G (CLASSX) ) / 100 ! )  ’highest  digit  marks  category 
FIX  *  0 

IF  (GO  »  II  OR  (GO  =  3)  THEN  FIX  =1  ’FI  set  For  mide 
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1 


f2  set  for  time  urgent 


I 

» 

J 

I 


i 

* 


i 

9 

t» 

t 


i 


m 


1325 
1330 
1335 
1340 
1345 
1350 
1355 
1360 
1365 
1370 
1375 
1380 
1385 
1390 
1395 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1435 
1440 
1445 
1450 
1  455 
1 460 
1465 
1470 
1475 
1  480 
1435 
1490 
1495 
1500 
1505 
1510 
1515 
1520 
1525 
1575 
1 540 
1545 
1550 
1555 
1560 
1565 
1570 
1575 
1500 
1585 
1590 
1595 
1 600 
1605 
1610 
1615 
1620 
1625 
1630 


F27.  =  0 

IF  GO  >=  3  THEN  F27.  - 


GO  -  G < CLASS'/.)  /  1O0  -  GO 

'HI'/.  =  INT  (10  *  (GO  -  INT(GO)  1  )  'determine  1 4  coverage,  moderate  or  hi 
IF  H17.=2  THEN  GO  =  INT  ( GO*  1 00 )  / 100  ELSE  GO  =  G  ( CLASS'/.  >  - 1  NT  ( G  ( CL  ASS'/. )  > 


NO'/.  =  N*4  ( CLASS'/. )  'number  of  targets  in  this  class 
’  DO  either  nr.  tgts  or  mide  goal 

IF  FIX  THEN  D  (CLASS'/.)  =  -NO'/.  *  GO  ELSE  D  (CLASS'/.)  =  -NO'/. 
RETURN 


'subroutine  SCAN(r)  —  for  first  wpn 

’  scanning  to  the  right  in  the  DE  table.  JO  marls  table  column  chosen 
’  select  first  wpn  meeting  per  wpn  DE  goal 
J07.  =  O'.  L07.  =  l:  LI'/.  =  UO'/.  'left  half 

IF  F2'/.  =  0  THEN  LO'/.  =  UO*/.  ♦  L17.  =  U07.  ♦  BOV.  'right  half 

J'/.  =  LO'/. 


WHILE  J'/.<=  LI'/.  AND  JO'/.  =  0 
Tl#  =  T #  (CLASS'/.,  J'/.) 

G 1  =  TIM  -  INT ( T 1#)  'candidate  wpn  DE 

IF  G1  '  GO  THEN  1475  'wpn  DE  <  per  tgt  DE  goal 

J1V.  =  INT  <T1»)  MOD  1O0  'wpn  inde:: 

IF  W'/.  (J1V.)  -  0  THEN  1470  none  left 

JO*/.  =  J'/.  'Get  table  column  i  nde;: 

X  =  Gl:  Y%  =  NOV.  ’arguments  for  HOWMNY  subr  . 
GOSUB  1595  ‘HOWMANY  wpns  M 


J'/.  =»  J'/.  *  1 

WEND 

IF  JO'/.  =  0  THEN  GOSUB  1500  if  nothing  found,  try  scanning  left 

RETURN 


'subroutine  SCAN ( 1  )  for  first  wpn 
SWAP  LO'/. ,  L 1 '/. 

J'/.  =  LO'/. 

WHILE  J7.  >  0  AND  JO'/.  =  0 

T1F  «  T M  (CL ASS V. ,  J'/.) 

J1X  “  I NT ( T  1  M  >  MOD  1O0 
IF  WX(JIX)  =  O  THEN  1565 
JO'/.  =  JV. 

Gl  -  Tin  -  INT  ill#, 
X  =  G 1  1  Y  V.  =  NOV 
GOSUB  1595 


J'/.  =  J'/.  -  1 
WEND 

RETURN 


*  wpn  l  ndei: 

'any  wpns  of  this  type  left 
'wpn  L»t 

’arguments  to  subr ou t  '  r.E 
'to  compute  HOWMNY  wpns  M 


'subroutine  HOWMNY  —  argi  X  (the  wpn  DE /  and  Y  (wpn  stocl) 
IF  F IV.  =  O  THEN  1625 

M  =  INT  (ABS  ( D  (CLASS'/.)  ) /X  +  1)  'mide 

IT  M'/.  ->  Y%  THEN  MV.  =  Y7. 

GOT  Q  1  670 

MV.  =  YV.  '  i  de 

IF  M'/.  WV.(JIV)  THEN  M/.  =  W'/.(J1'/.)  'more  tgts  than  wpns” 


-  -#i 

m 


.-'-1 


3 


30 


*  •  ifb, 


t'<  I'd  rf’.V. 


1633 

1640 

1645 

1630 

1655 

1660 

1665 

1670 

1675 

1680 

1685 

1690 

1695 

1700 

1705 

1710 

1715 

1720 

1725 

1730 

1735 

1740 

1745 

1750 

1755 

1760 

1765 

1770 

1775 

1780 

1785 

1790 

1795 

iaoo 

1805 
1810 
1815 
1820 
1825 
1830 
1835 
1840 
1845 
1850 
1855 
I860 
1865 
1870 
1875 
1 880 
1885 
.890 
.  895 
900 
90S 
910  ’ 
915  ’ 
920  ' 
925 
930 


RETURN 


'subroutine  APPLY  --  -first  wpn 

N07.J=VNoy  W/\ly1V‘)  ~  MX  ,'reduce  inventory  by  nr.  applied 
T*  (CLASS-/.,  J07.)  *  T«  < CLASS-/.? JOxT  ^10o‘"  MX^record  iTtTb'le 

IF  FI 7.  =  0  THEN  1715 

d (class-/.)  =  d (Class-/.)  +  n-/.  *  x 

IF  O  <=  D< CLASS-/.)  THEN  F3-/.  =  O 
GOTO  1720 

.  IF  G0  <  =  G1  THEN  D  ( CLASS-/.  >  =  D  (CLASS-/.)  ♦  MX 
RETURN 


subroutine  ALLOC2  --shortfall  to  goal  needs  second  wpn 
1C  n/r..°/ve,«.  1  1  st  Pointer  for  2nd  wpns 

OICLASS/.)  >=  0  THEN  .805  'return  if  no  shortfall 

GOSUB  SS™  'OEGOA^S^r^r  ^c. 


0  (CLASS*/.)  =  Dl 


credit  -for  earned  DE 


Lay.  -  i:  Lty.  =  uov.  >msi  wpn 

IF  F27.  *  0  THEN  LO-/.  =  U07.  +  1:  LI-/.  «  U0-/. 

COSUB  1B20  ’execute  ADD 


RETURN 


subroutine  ADD  —  to  try  to  achieve  DE  go; Is 
K/.  »  LOV. 

F3-/.  =  1 

WHILE  K7.  <=  LI-/. 

Tl#  =  T#  (CLASS-/.,  KX) 

G1  =  Tl#  -  I NT ( T 1 4 ) 

KOy  =  K7. 

'  I  NT  (  100  *  (  ( T 1  #  /  1 00 )  -  INT(T1#/100>  )  > 

N17.  ^‘iNT^INTITlif/loof1  ^  ^  "'°r*  ^  *lrst  wpn  short 

WHILE  N!-/.  >  0  AnS  F37  ^  ^  aPPllPd  -•  *>n 

Jc  ^.,THE^  G0SUB  1920  ELSE  GOSUB  2100  ’nude  lftscan  else  r 

IF  JO/C  >  0  THEN  GOSUB  2005  ELSE  F3X  =  O 

WEND 

KX  =  K7.  +  l 

WEND 

RETURN 


subroutine  SCANLF  —  second  weapon 
JO-/.  -  O 


UO-/.  +  BO-/.:  L47.  =  U07.  x- 


V 


l; 


I 


2285  ’subroutine  report 
2290  ’ 

2295  TTYPES  < 1 )  »  "cr-mide  ":TTYPE*<2>  *  "cr-ide  “ : 

2300  TTYPES ( 3 )  =  "tu-mide  ":TTYPE*<4>  =  "tu-ide  " 

2305  ’ 

2310  PRINT  T  TYPES  ( I  NT  ( G  (CLASSY. )  / 1 00  '  )  )  5 
2315  PRINT  USING  N>1  (CLASSY.)  > 

2320  PRINT  USING  "######-'':  D  (CLASS’/.)  5 

2325  FOR  JV.=  1  TO  WOX-1:  PRINT  USING  "#######.«#"  5  T#  (CLASS'/!,  JY.)  :  :  NEXT  JV. 

2330  PRINT  USING  "tMMMHMM*.  ##•'  i  T»  (CLASS’/.,  WO’/.) 

2335  IF  AO’/.  =  O  THEN  2355 

2340  PRINT  *'  "5"  "  S  "  “  < 

2345  FOR  J’/.=  l  TO  AO'/.lPRINT  USING  ”##•»###.*#"!  A# ( J%) 5 : NEXT  JV. 

2350  PRINT 

2355 

2360  RETURN 

2365 


\- 

k— . 

1 


IP 


\  %  % 


august  198 


1 00  ' 

200  REM  adaptation  of  decalc.... 

210  REM  Prepared  by  Dr.  Stefan  Shrier 
220  REM  System  Planning  Corporation 
230  REM  15ov»  Wilson  81  vd. 

240  REM  Arlington.  VA  22209 

250  REM  Telephone  (703) -84 1  -  ""621 

310  OPEN  "OUTF I LE "  FOP  OUTPUT  AS  fs 

400  DIM  F (7, 4’ , P <4. 18’ , E (4, 2 • ,3(6.5> , 0 (2> 


420 

DIM 

D  (  4 . 20) 

430 

DIN 

W*(2>  >  'wpn 

IDs 

460 

REM 

470 

REM 

SET  CONSTANT 

tables 

480 

RFC 

490 

c<i: 

■  =  1.04167 

500 

0(2 

'=1. 0989 

510 

C*  * 

=  "pyr.: 

520 

L*  = 

-  ” 1 pmnrrsqtu 

•:  d  '* 

740 

FOR 

J  =  1  10  5 

750 

FOR  I  =■  1  TO 

6 

-60 

RE..D 

G  ■.  I ,  J  : 

770 

NE  <  T 

I 

780 

NEXT  J 

7 

DATA 

.8622. 

-  3.237,  2 

0771.  -1.4128.  O 

40748.  -0.  '.’45266 

Oi  n*» 

npTA 

.313. 

-3.0865.  1 

7786,  -1.0675.  0 

28757,  -0.028466 

bi<;- 

DATA 

. 8095, 

*2.858.  1 

2935.  -0.6272. 

17978.  -0.011672 

820 

DA  r  A 

. 767 1 . 

*2.676,  1 

006.  “0.75646.  P 

■  .6  2 15.  -0. 004070752 

p 

DATA 

. 6984 , 

-2.7264.  • 

1.74818.  -0.1876* 

u.  023204  .  -0.  OO 1  0857- 

831  REN 

840  FOR  J  -  1  TO  4 

850  FOP  1  =  1  TO  7 

SoO  READ  F  ( 1  ,  J  > 

870  NEXT  I 

080  NEXT  J 

890  DATA  G.214.  -0.1118,  5.265  e  -4,  2.162  e-5.  -e.oOc.  e-7.  / .  1 32  e-9 
900  DATA  -7.064  e 1  1 .  8,315.  -O.U’37.  -7.906  c’-4,  -9.079  e*5.  1.458  e-5 

910  data  -5.22g-7,  5.726e-9,  8.737,  -0.1755,  0.002755.  -2.086e-4 
920  DATA  9.?Me-6,  -1.872e-7.  1.227e-9,  F.7B9.  -0.112,  -6.659e-5 

930  DATA  -5.803e-4.  5.8S3e-5.  -l.°05e-6,  2,0j6«.—  8 

971  REM 

940  FOR  1  =  1  TO  4 

950  F  OR  J  =  1  TO  1 A 

96u  READ  8  i  I . J ! 

970  NFxT  J 

96' 1  Nc  i  T  1 

99<  DATA  -'  .  5  7  79.  ';4.  -1.45.-*.  '.612,  -5. '■51.  -6.65B,  -8.926 

1000  DAT,,  -12.73,  -••.  089,  -O.*.  1  i9.  -  ..401,  -1.901,  -2.509,  -7.284 

I'M...  IV,  1 A  A.  •!  ,  1.56=,  7.77.  '.J.  742.  l"-72.  14. 6  3,  20.2,  28.98 

I'..;"  PA  1m  i...  74£,v,  j  .  729.  2.R77.  4 .  1  .  5.  -15.  8.  ’  79.  11.32.  16.05,  24.43 

1  '•..<>■  17-76.  -  ...  0O.;-.-69,  -,..,0477;.  -.'..:75'.  -".8410.  *2.375.  -5.902 

104...  elA  2 ,  35. 5-6.  -0.03991,  ->.*.  1  Af-9,  -<i.  5  i  16.  -1.173,  23.  -4.116 

lv5«.  '..O'.  • .  75n,  -1  3.  21  .  -25.  "V.  00671  ,  '4695.  -O.  1545,  — >.  7457 

l  -o*  ^ A  A  '.'.'■■  1  7.5 ,  -i.  •F’i'J,  ■  - .  ;  1  5  1  ,  7.11'..  1  0 . 2  0  ,  ".  "V)  15J.  O.  Ot'9542 
*0'  •  A  ".5i-15,  O.  10,2.  ■. 4,147.  1.12.  2.  .  •*••>.  4.  10.64 

i  '■  "  1  Kt  '' 

.  S  ■  *  :  10  2 

1  OVO  hCMl  r  <  1  .  J  1  .  E  i  2  .  J)  .  i  .  E  <•  •■»,.)> 

IP-  X  !  .i 

)  ■■  " .  1  1  .  -'..".‘.J,  -■-.'■■■  I  Atit.  2.  2'.'8l-  1. 

1  •  ’"A  1  f  7.;  r  4  ,  -  .1.  !  -6.61  H  f-  5 

i  1  , 

.  ■  -  -constant  roF  normal  mctrieuiium  --  used  in  pd 

i  ‘  •  *  *  *  * 

^  *  t  wpn  da? 

'  ■  1 1  :  J  OK  1  f  tf-  !_■  T  WL- 

t  U .  ;"rg»,nt  icl'..  (_  f-p  .  f  <^i  ,  >  I  >'i  i!,  C  Er’P  .  \  <.«  ,  .  . 


34 


1710 

INPUT  #5.  UO 

1  720 

FOR  J  -  !  TO  UO 

1  730 

1NFUI  #5, 14 »  ( J  )  ,  D  i  1  .  J  )  .  :■  3,  ,3  1  .  ' 

M  J  1 

1740 

NEXT  J 

1750 

REM 

1  760 

REM  Sc»tne  -f  o'  non-" 

1  770 

INPUT *5.  B(0 

17e0 

FOR  J  -  1  TO  BO 

1  790 

.11  =  J  +  UO 

1  800 

INPUT**-..  Ut  ( J  n  .  D-  1  .  .11  >  .  D  -:3.  3 

i  ■ .  r* ; j  i  * 

1810 

NEXT  J 

1830 

CLOSE #5 

1 870 

WO  =  UO  +  BO 

1 900 

REM 

1  '7  1  o 

REM  MAIN  PROCESS  1. OOP  •»*»»* 

*  * 

197m 

open  "De-table"  for  oo fp i it  to;  « 

1  9  i 

OPEN  "tgt -dr"  FOR  1 NF  U '  «;■  ttO 

1940 

REM 

1  950 

INPUT #5, 01  *  number-  rt  r: t..  i  ->  .  t  : 

1955 

PRINT #7, 01 

I960 

FOR  0=1  Ii  i.M 

197i.i 

I  NT  1 J I  *5,  71  ni'<nt)i_‘r  (it  c  1  c; 

• 

1975 

FRONT  #7,  Cl 

1980 

FOR  C  -  !  TO  Cl 

199  , 

input  t*.  m.  ri.  .  .  n. 

gi 

7i  iOo 

GOEUB  37 'v  ‘  if.*  ■  -r  • 

!  '  ‘  1  “P-  ( 

7<‘i  1  0 

ci  JbUH  385*'  *f  oT.p *_i t  <? 

bt  * 

2“  i  5 

GC’iOR  Cr1"!'  ‘  p-  •?£.■. xr »■ 

„•!:(?  >*f  J  1  ».*  *.  a 

2<  O  • 

NE  X  T  C 

20“' 'i 

NEXT  0 

204.  > 

GOT  Cl  404'.'  '  i?ncl  of  program 

27io  * 

2770  PFh  subroutine 
2:.  4«:» 


2  38“ 
2  “90 
240“ 
2  4  1  •  '■ 
24/0 
2  a  7.1.1 
;  44<  1 
247.0 
246. * 
24  7< » 
2  40 1 1 
2  4  VO 


:s4o 


i  fit  pr  pr  *•?.  v'*«  >  !  nuvt 

7  *  -  r.iutci'i.  Lf.N-  bi ;•  1  .  I  > 
f-  -  lNf-ir-  1  . 1  f , 
if  F  •«  t »-M<  l  ;9«.‘ 

F  ft  I  !•*:#*  ,  ’  t  y  !-■  Hu  j- i_  t»«  •  1  ,  •  :  .  r- ,  .  p  . 

ftE  ruFN 

XI  =  LEFH  ■K,LLN>t'l;-72 
V  VAL  (XI/ 

IF  F  6  US-  F  IT  AN2  V  5  7  OF  <p  M  .VJP  V 
IF  r  -  i  I  ANi>  V  AND  V  -4  T  Mr.  N  ‘  ' 

FR  i-J  ■  »6.  vn  rjt>t  ot  toi 

ftp  T  iJr.N 

IF  P  12  THEN  24  7*: 

I  =  5 

s  -  . :  *r 
T  *  P 

IF  F  =  11  TH.N  222" 

if-  ♦  IHLr;  2',2<‘ 

■  4  ;  Pi  * '  *  *  b*  .  1  • 

I  v.'.i  iCt) 

KL  T  1  «F -i 


2*jjl  :  I  -  “ 

256"  KETUPK 

2&1'.'  '  jiOr  ovtHii'  to  prepare  aid  w.*  :'.•  tables 

26*  2  FCF  .J 7.  =  1  TiJ  ti*. 

26  2.1  Di  4 ,  J  7  )  -■  J  7-  «  0  C  4  .  •  J  • 

2612  NExI  J  : 

262“  l  o  =  1 

2fc 2b  L  1  -  U'-‘ 

267“  G05UP  4  7a;»  ‘sort  b/  P-J 

2675  LO  -  -J*;*  ■*  1 


1  i  *! 

ypi 


I 


LI  «  UO  +  BO 
GOSUB  4760 

PRINT#?,  USING  “\  V'}T*{ 

PRINT#?,  USING  "\  \" IB»I 

PRINT#?,  USING  "#####" ( Zi 
PRINT#?,  USING  "####“!N; 


"tgt— id  B-byte  field 

’  vntk 
'  si ;  p 
’  number 


PRINT#?,  USING  "####. ##"5M*100+INT<G1*100)*G2  ’tgt-type  i.  goals 
PRINT#o,  "  ’6-byte  offset  line  two 

FOR  J?  «  1  TO  WO-1 

PRINT#?,  USING  "###.##"  ID(4,J3)  ;  ’won-index  J,  Pd 

NEXT  J3 

PRINT#?,  USING  "###. ##"SD(4,W0 
RETURN 

’Subroutine  to  compute  DEs 

HO  =  1  ’air  only  assumption 
•11  =  1  ’since  only  one  target 
14  =  1 

IF  Tr,6  THEN  3120 
14  =  2 

IB  =*  10  *  S  'needed  in  Pd  subroutine 
FOR  J3  “  1  TO  UO 

Y3  =  D  (  1 , J?)  '  ( 1/3) 

IF  T  «  11  THEN  3300 

GOSUB  4360  ’COMPUTE  WPN-RAD1US 

GCSUB  4510  ’OPT  HOB 

’ pl acehol der 

J4  *  J?.  ’for  Same  wpns 

05  =  l  ’  —  only  one  target  size 

GOSUB  4580  ’ compute  pd 

D  ( 4,  J 3 )  =  P 

Z *  *=  MIDS(L*,T,  1 ) 

’  print #6,  v;  z*;kjvhd(  1,  J3)  ;d<2,  J4>  s  25 

’  PRIn i#6,  H0?U)p;D<3, J3) !D1 
NEXT  J3 
RETURN 


’ sub  for  radius 
Y4  =  1/V3 

Y4  =  1/V3 
VI  =  V 

IF  P  =  0  THEN  4410 

J  =*  9*I4-9+f 

VI  »  V  +  B(1,J)  Y4  *  (6(2,  J)  +  Y4  *  <B(3,J>  +  Y4  *  B  ( 4 ,  J )  )  ) 
J  =  14*2 
W  =  F(7,J) 

FOR  I  *  6  TO  1  STEP  -1 

W  =  U  *  VI  +  F  ( I ,  J  > 

NEXT  I 

W  a  Y?  •  EXP (W) 

W  a  W/  (0  ( 1 4)  *  (1  -  S  -2)  ) 

RETURN 

’subroutine  for  opthob 

IF  14  a  l  OR  VI  a.  15  THEN  4550 

HO  *=  1661  *  EXP  (-.0613B  »  VI) 

GOTO  4560 

HO  =  E  XP (E  < 1 , 1 4  >  +  VI  *  (E (2,  I  4 )  +  Vi*(E(3,I4)  +  VI  *  E(4.I4))>> 

HO  =  Y?  *  HO 
RETURN 

’subroutine  for  pd 

IF  D<2,J4>  THEN  4610  ’if  any  cep  is  0,  set  p  : =  l  and  return 
P  *=  1 
RETURN 

R1  ■=  U/SQR  (D  <2,  J4>  -  2  +  C7  •  Z  2) 

IF  S  =  .1  AND  R 1  >  3  THEN  4590 
IF  s  «=  .2  AND  R 1  -3.5  THEN  4590 
IF  S  =.?  AND  R 1  4.5  THEN  4590 


i 

4 

4 


'J 

I 


3 


I 

»' 

V 

V 

«> 

\ 


X 

I 


H 


4650 

IF  S  =.4  FIND  R 1  >6  THEN 

4590 

4660 

IF  S  -.5  AND  R1 >8  THEN 

4590 

4670 

IF  R 1  >  .  1  THEN  4710 

4  680 

P  =  0 

4690 

RETURN 

4710 

P9  =  Rl  *  (G (5, IS)  ♦  R1 

*  3(6,18) 

4720 

P9  =  G(1 , 18)  +  R1  *  (G ( 

2, 18)  *  R1 

4730 

P  =  EXP  (  -EXP  <P9)  ) 

4750 

RETURN 

4760 

’subroutine  to  order  in  table 

4765 

IF  LI  -  L0  <  1  THEN  4795 

4770 

FOR  I  =  L0  +  1  TO  LI 

4775 

FOR  J  =  L0  TO  I 

4780 

IF  <D<4, 

I ) - 1  NT ( D  <  4 

SWAP 

D ( 4,  I )  ,  D  <  4 

4785 

NEXT  J 

4790 

NEXT  I 

4  795 

RETURN 

4840 

'program  is  Finished 

«  (3(3,18)  +  R 1  *  (3(4,16)  +  P9>>> 


4880  END 
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TEKTRONIX  COMPUTER  LISTINGS  FOR 
PD  CALC  AND  D£  CALC  (PROVIDED  BV  SAGA) 


100  INK 


1000 

HIM  1 

<  /  1 1 )  »  0  ( 1  >  1  b* )  • 

1010 

IHM  13  (  0  :  JO  >  :  S  !  JL  )  : 

10  JO 

II 1M  'J 

(  £  :  U  >  ;  K  '  V,  ?  ;f 1 

10J0 

IllrtOt 

JLidfi  *  KALJK 

1010 

KKH 

101)0 

1  MAUL 

J.Oi  l.Vi  A:  JO.  JX 

1<I*|'|  Li 

y  a.  ot 

10b6 

h'RlNt 

*  OlS*-*LAY  «JU  1 1  * 

10L.J 

1NKU  1 

A 

iool; 

K’KIM  1 

*  JHi  f  1AI.1  Jl.'Ui 

IOLiV 

I K  A- 

3 J  f  HK 1 !  1040 

1040 

V-  JO 

1061 

11  A- 

01  IHHI  1  04  J 

1C6J 

V 

1046 

UO  10 

l'J/0 

1061 

KK’IK'  f 

•lIC  SUCH  Of  Ox 

1  06Li 

LiU  f  U 

: 

10  JO 

1  0  Jt 

D-0 

10HO 

1  /-'* 

10V0 

0(1)“ 

1.0136/ 

1  10O 

U  <  J )  - 

1 . ovov 

1110 

o*  -  *  J 

iL'V* 

1  1  JO 

L1--1  KHKUKSO fUX * 

1140 

l'A  1  A 

J 00  »  4U  #  t  f  (.*  #  0 1  4 

1 J  1(1 

Oft  1  A 

U1 . OiO.OlO. 4.0 

1  1L.0 

Of:  10 

10,13 , 1 . 0 . 0 . 1 . 

1160 

00  If! 

31  , 0 , 0 . 0 :  0 . 3  <i 

11/0 

OA.  1  A 

1  3  */t ,  1  0  .’0  ,  J 1  JO 

1  ISO 

Of)  If. 

n.Jt.0, 11L.0.  Jt 

l!‘/0 

on  ia 

0.31,0. 31,0. J. 

1  JOO 

OA,  1  A 

JS 40. 3360,0.3/ 

3  J)  (* 

on  f  a 

Z/IL,,  J440:  311/0 

XJJO 

MIK  1 

•  1  10  14 

1J4  0 

h  Oh*  .3  1  IU  0 

1  J10 

KKAO 

U< 1 . J) 

1  JilO 

NKXI 

J 

ivtv 

NKXl 

J 

1  J/0 

kii;  \ 

‘t  IU  A 

1  JSO 

KK  An 

Hi  i  > 

1/VO 

NKX  / 

J 

1  300 

b  UK  I 

-  1  1 13  K 

1410 

KK  AM 

K  U  ) 

13  JO 

NK  X  1 

J 

1  340 

!»/':  i  A 

»’3 

1  4 1 0 

MJK  . 

1-1  1  n  0 

1  4  li  0 

KUK  1-  1  IU  4 

1460 

KKrtli 

o  ( i ,  j 

1  3  70 

Nf-  >  f 

J 

1  3S0 

Ml  >  1 

.1 

1  3  VO 

OA  1  A 

3  ,  tit.’.'f-J- .  i 

t  'lOO 

on  i  a 

1  .  013,  -  3 . 004', 

A  <  i  0 

on  i  a 
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1325  DAY  A  -5 .  803fc- 4 »3. 053t-3  *  -1  .  90SE- A . 2 .  C.iAU-U 
1530  hUK  I-  1  IU  4 
1540  KlIK  J-  l  fu  18 
1550  RKAD  B<I.J> 

1540  NKXf  J 
1570  NKXI  I 

1  SCO  DATA  -0.5770  #-l  .224  »-l . 937.  -■.*.8V3>-3.H12i-5 . 05!  ; -6  .  V. 38.-8.926 
3  5  <;<>  DATA  -12. 72.  -0.2889 > -0. 6 1 IV : -0 . 9782. -  3  .  103  .  -  1  .‘70  3  : -2. 50*7  .  -3.284 
1400  DATA  -4.343.-6.01  >  1  . 56V .  2  .  33 :  5 .  ■It”*  i  7 . 712 ;  I O  .  72 >  1 1 .  A3. 20 . 2»  28.  V8 
1610  DATA  45 t 0 . 7989 : 1 . 72V .2 . 82 7 : 1 . 196 « ! . VI  5 . 8 . 1 7V : 1 1 . 32. 3  6.05:24 . 43 
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1820  INPUI  K  3 

1830  IK  Kl<5  IHKN  1810 

1840  OOSUU  48V0 

1830  1.1=0 
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33V0  14-2 
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3440  IK  I  <  J1  )  -  1  1  IHKN  2520 
3450  UOtiUR  4610 
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3/00  K4  =  l>(  6  f  J8)/L>  (  0.  J  8  > 
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3810  IK  K/-P8  0  I  HR  (J  3840 

3800  U1  ~U3 

3830  00  IU  3780 

3840  U0"U3 

3800  OO  IU  3780 

3860  IK  11  "3  I HR  M  370 0 

38/0  1K4» 1 ) -W/U3 

3880  1H4,1  )-|.K4r  1  )  •0-LV*U*.0,Jt,)',0 

3881  IK  U(4,l!  0  IHK.M  38VV, 

3880  11(4,1  >  —  1 

3883  UU  IU  3870 

3880  IK  4,  1  )  -SUk(  U  (  4, 1  >  > 

38VO  bU  IU  40/0 
3900  U1  -U3 

3910  Ul'SSIK  (  IK  4  ,  J  4  )  0  +  U  ( 5 :  J5  > "  Ofi;/  )  V-  V/l 
3900  141-0 
3930  HOMO 
3740  Y3-n:.* 

3950  UUi'IJli  4510 

3960  IK  CUl  IHK.M  4000 

3770  M1=M3 

3980  MO  --OfrtO 

3970  HO  IU  3V40 

4000  YOMMl+MO’/O 

4010  bUBUB  4510 

4000  IK  U-W1  IHM1  4036 

4030  M1-Y3 

4035  til)  IU  4040 

4036  N3 -Y3 

4040  1 K  A)18(W-U1  )/Wl  1 . 0*8-3  IHKII  4000 
4050  U  1 3, 1  )  ~ Y3  "3 
4060  UU5UB  4  6  60 
40/0  KKM 

4080  II  LI  IHKN  4 1 05 
4070  L3L3I1 
40V5  h'f'.Ut 

4100  K'klMI  13  0 :  L'UiNb  103011.3 
4105'  PR  IN  I  8A1-  ON  I  I.  lA'i!  WILIX!.:> 
4105  PkiN!  (#n:*  HUB'.!  !>  WK;  ( K  I  )  KB  * 

4iio  pkini  t*n: 
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4125  /?'  SLO(L»  .l(Jl.M) 

4130  PRi  00 :  US1  10501V(  J1  >  >Z»  >K(  .11  )  ;  VI  ;»(.lf  J31  >  »H  4r  J4  >  .lH5t  J5>  rHO.UtP 

4140  HO  10  4160 

4160  Ll-Ll+1 

41/0  IK  I/-0  THFN  4  41*0 

4100  IK  I<J1)-10  fHF.N  41*1*0 

4 1  VO  IF  I  (.ID-11  fHKN  41*40 

4200  IV-KJl) 

4210  HO  10  42/0 
4220  fV-’O 
4230  00  (0  42/0 
4240  fV-1 

42150  0(  ltL3>=-(V(  J1  >K  I  V/10+K(.J1 )/ 100.)  *100 
41*60  00  TO  41*00 

42/0  0(1  f  L3  )  -  ( V(  J1  )+  ( V/IO+I.  (  J1  ).*  1  (-(.>) *100 
4200  0(2“iL3)-D(3:  J3 ) 

42V0  U(  3  »L3  ,*  “1*(  4  r  J4  > 

4300  U(SiL3>=1)(5jJ5> 

4310  0(4  »L3 ) TO 

431*0  IK  HO  "0  ( HUM  4340 

4330  tl(4iL3>  =  l 

4340  0 ( 6  >  L3 1 ” 10004P 

4350  L  3-L3 I  1 

4360  IF  1.34&1  ( HF.N  441*0 

43/0  RFM  STORK  lift  1  rt 

43/5  STOP 

4300  Kl-Fl+1 

4 3 VO  00‘JUU  40V0 

4400  L3-1 

4410  IK  L 1  <  Y  (HKN  4440 

4420  IK  LI < Y  IHF.M  4440 

4430  1.1=0 

4440  MF.XT  J5 

4450  NF.Xf  J4 

4460  NF.Xl  J3 

44/0  NF.XI  .11* 

44H0  NF.Xf  J1 
44VO  NF1XT  J6 
4500  00  TO  1H50 
4510  Y4=l/Y3 
4520  V1=V(J1 ) 

4530  IF  K (  J 1  ) “ 0  THF.t!  4560 
4540  J--V*I4-V+K(  J1  ) 

4550  V1=V(  JIHL'1 1  t  J>*Y4S(0(1*»  J)T  Y4»  ( B  ( 3*  J )  ♦  YltH  (  4  » J>  )  ) 

4560  J= I 4 

4570  IK  HO'- 0  THI  N  45V0 
4500  J=J+1* 

45V0  W"F ( / f  J ) 

4600  FOR  1*6  TO  1  S  I  KP  -i 
4610  W=W*V1+F  U.J) 

4620  NF.Xf  I 
4630  U=Y3tfcXF'(U: 

4640  W=U/(I1(  I4)*(  l-b'(  J1  J'-/)  ) 

4650  RF1URN 

4660  IK  H0-‘0  I  HtN  4/50 

46/0  IF  14=1  OR  V 1  =  /•  1 5  f Ht.M  4/00 

4600  H0--l661»tXP(  -0.0613H4V1  ) 

46V0  00  10  4/10 

4  700  HO=tXP(t(l . 14>+V1»(L(2. 1 4  >  +  V1*K  t  ( 3 » J  4  >+Vl*L (4  >  J  4)  )  >  > 

4710  HO  TY3*H0 
4720  RF.  TURN 

4730  IF  U(4*J4)  I  HF.N  4/60 
4/40  F’**  1 
4  750  RF.  IUKH 

4  760  R1=*M/KUR(0(4  »  J4  >  "I’  +  C /*»(  5  «  .15  )  1*  > 

47/0  IK  SlJllfO.l  AN:*  HI  J.  !  UK  II  4/4'.* 
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4/80  IK  8(J1>=0.2  ANII  Rl>3.3  IHKN  4/40 

47yy  IK  SUD-'C.J  AND  R14.3  IHKN  4/40 

4000  IK  8<J1)=0.4  ANH  K'1'4  IHKN  4/40 

4810  IK  S<J1 1-0.5  AN ).i  Rl>8  IUK.N  4/40 

4820  IK  K 1 >0 . 1  IHKN  4850 
4830  K=-0 
4040  RKTURN 
4850  I8-10*b(Jl) 

4860  Py^Rl»(UC>» IB)KR1«0<6» 18) ) 

486b  K'V (1 » 1 8  )  +R1  *  <  8  ( 2 #  1 8  )  +K1  *  ( (i <  5 . 1  0  >  KR 1  *  <  8 <  4 , 1 8 )  +R V ) )  ) 
48/0  R“ t  XP ( -t  XK ( KV ) > 

4880  RKTURN 
4HV0  KOR  J-=l  fU  bO 
4900  KUK  1=1  10  6 
4910  U< I  *  J)=0 
4920  NK.Xf  I 
4930  NKXI  J 
4935  RKTURN 
4940  KINU  K 1 
4930  RKIURN 

4960  IK  I/=0  UK  L3-1  IHKN  4y80 
49/0  RKH  SIORK  UAIA 
4980  IK  1 7*0  IHKN  5000 
49V0  RKM  l  (JAM  l'AIA 

5000  KRINI  *RHUUKAM  15  I  JNISKt.M’ 

5001  KNIJ 


*  I 

i 


i 


) 

i 

> 

i 

i 

\ 

t 

■i 


I 

* 

1 


100 

)  N 1  I 

1  10 

K’AliK 

120 

KRIN  1 

■  mm  Dll 

KK'KLKtt 

t:L‘cc 

r\ 

f 

i;l :\:c 

1  30 

KRINf 

*  » 

D 

t 

2  »  ‘ 

n  r\ 

C  !. 

140 

KRIN! 

*  D 

D 

u 

•  A 

r. 

L 

150 

KRIN  1 

•  D 

D 

K 

(:  r\ 

n 

$ 

*; 

1  60 

KRIN  1 

‘  L) 

D 

5  K.k  K 

t; 

L 

1  70 

PRINT 

'  D 

D 

1: 

;;  a 

A 

C 

xfto 

KRIN  1 

*  L) 

D 

K 

c  n 

(\ 

\ 

C 

190 

KRl'NI 

•  LI 

D 

L 

ov  i;  t:  r. 

C  L 

200 

PR  I N  1 

*  Dl.UUUi 

ttKKKKK 

(i/»  c;i:cf .  * 

A 

l  I  Lt.  L!  J 

i.r.ci: 

210 

PR  I  Ml 

•  * 

1220  PRINI  *»*:»:*.*t**.T.'»  ***$•*#***.****»**$*<'.****$•**  $*.**».$’***’»*?<:»’#*$•*??»*• 
230  I'KJNI 

240  KKM  KDiftD  KYI  HAJ  8'JK  K  I  UAK  1 
250  RKM  6  f  .'l/K’KPri 

260  KKM  MRlljHI  -li:  I  TSiRRoM  AK8,  UH  46 

270  KKM  M  3-72  7-25l7 

280  KtM  AO  787-2542 

290  KKM 

300  KKM  KKVLStli  Oil  l  .’O  AK’K  82 

210  KKM 

320  KKM 

330  KKM 

3  40  KKM 

3 SO  KKM 

360  PRINI  *1M1  d.M.i.dW.  !  f!K  RK’UL’!  LR  ...‘ 

3  70  KRIN  I 
380  KK;i  N  I 
390  KRIN ( 

4  00  HIM  K  ( 7,  4  )  ,P<  4. 18)  ,fc  (  4,2)  :  LI  <  12.'  .•!)$  (  4  >  .K*  ’.  1  .  )  ,’,.•$  4  >  .  ,\'»<2  , /»  i  1  ' 

4  1  0  lu  M  ]M6,30>  >S<  10!  >  .".  6)  i  II  'll.  :>'.»)  i  K(  4  >  >1.".  />  .  !  <  50  >  .0'.  2?  i  !  *  (  1  2  )  » Wt  HO  > 
420  1UM  U< 6,3)  *R<2>  ,1*'.  16,8)  ,H'.  4>  ,  VI  20)  >1.  (1.0)  ,9*  <  4  ) 

430  l  MACJK  341  ,  1 2A , 4X  >  20.4/6  I  >  '  I’ALK  '  r  30, 3L 

431  IMAlit  2L  ,  J  4  f  , 1 2A »  4  X  »  20rt 

440  IMAlit  3D,  1>:,A,  211,611.  ID,  1>:,3(9D>  ,S 
40,0  1KIA13K  10D,8Li.  1D>312H.3Ii> 

460  L2-0 

4  70  0-0 
480  17-0 
482  1.3-1 

490  IK1  '  1.0*167 
500  U<  2 ) -1 .0989 
510  11$  -  M  'YCO* 

520  L$  "  '  L  KK.HURfcl!  I  UX)t ' 

521  K$-  MILSI  • 

523  KKM 

522  KUK  1-1  lu  16 

526  KUR  J  1  ( U  8 

527  k’K.Al.Y  tl ( 1  ,  J  ) 

528  NKX  I  J 
52V  NKX  I  1 

530  HA  f  4  200, 40, 1  f  0  >  O  .  ,  O  .3  ,  '•  .2*  rC 

532  i'A  I  4  40, 8 , 1  . 6 , 0 , 0 . 2 , 0 . 4 , 0 . 3  ,  o 
540  DATA  81, 0,0, 0,0. 3, C.3, 0,0 
542  DA  I  A  / 1  >  3 1  >5,0.1  ,  O  .  1,0.  4,0.  3  ,  V  .  .1 
550  DA  I  A  40,11,1,0,0.4,0.3,0..’,'.’ 

552  DA  I  A  100.9 , 4. 1 . 1 ,0. 2,0 . 2,0. A , 0.3 

560  DA ( A  31,0,0,0,0.3,0.3,0:0 

562  DA  I  A  101,9,4.1,3  r  l1, 1  =  0. A, f:.  3, 0.2 

570  DA  |  A  1372, 15/0, 2420, 0,0. 2.’, 0.31,0. 31  rO 

5  72  DA  r  A  2222 , 2360  >  2V 7  2 , 0, 0 . 3  /  0 . 38 ,  o  .  36 , 0 
580  DA  I  A  1120, 26/2, 0,0, 0.36, 0.1 7,0,0 

582  DA  I  A  3430, 2500,  2200 ,31  32,  O  .  7.6,  l'./.  ,,<> .  11,0.  7 
2 ‘70  DA  I  A  1680,1  63'.’ ,  263  O  >  0,0 . 2v,o  .  30  >0.18.0 
592  DA  I  A  4190, 2900 , 23  1  O  >  3260  ,  O  .  3  :  o  .  12  ,  o  .  0  .  O 
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600  lift  I  A  1  3/5,  2900.0. 0,0  .  38,0.  10 »O.U 

610  UAIA  3/50,2/1 0.2660,3  100:0. 3/ 11  >0.13,0 

All  RUM 

670  KUK  1-1  IU  1 
A 80  RKA1)  H  ( 1 ) 

690  NkX  I  1 

690  UA  I  A  800.  1000.  700.1  OOU 
6V6  KkM 

700  KUK-  1-1  lu  0 
710  RKAM  K(l> 

720  NkX  I  1 

730  UA  I  A  3.3. 0.4. 0.6. H 

731  RKM 

740  KUK  J-l  10  0 
750  KOR  11  10  6 

760  Rk  AM  liU.J) 

770  NkX  1  .1 
780  NkX  I  J 

790  ma  !  a  i  .862:‘.-3.23/. o.o.'/i  r -i . i::;s : o.  lo.iiy 


•  1321:  -y 
,.  i .  i58t-t 
.0S6t- 1 


790  11A  I  A  1  .8622.-3 . 23  /  .  2  .  O.'.'l  r  -  1  . 1 1  2S  :  (! .  103 18  : -O  .  O10363 
HOC  MAI  A  1 .84  3  .-3.0060' 1 . 7386.  -1  .0670  O  .  7830/ 02S166 
1)10  UAIA  1 .8090. -2.  SOS.  1 .2930.  -  0.6732:  0. 13/70  •<*.<»!  1632 
1)20  MAIA  1 . 7671  .-2.636:  1  . 006  . -O  .  306 16 . 0 . 06  71 0 :  -<>. 0010/52 
1)3.0  MAIA  1 .6984.-2.3261 .0. 71818.-0. 18/83.0 . 023.281 ,  <:  .  00 !  OH‘,.3 
(■121  RKM 

840  k  OR  J-l  IU  4 

850  KOR  ll  10  7 

860  Rk AM  Ml.Jl 
870  NtXI  J 
890  NkX I  J 

890  UA  f  A  8.214.-0.1 118.0.260k-  4r2.  162k  -0  .  -6 . 638k- 7 . 7. 1321:  -9 
900  1»A  f  A  -3 .064L-  1  1 .8.310.  -  0. 1  033. r -/. VoUt  -  4  .  -V.lMVt  0.1.  108k-: 
910  MAIA  -0.32K-  7.0. 726t -y.k, /83.  0 . 1 305 . 0 . OO2300 > -2 . 086k - 4 
920  MAIA  V. VOlt-6. -1  .11721  7.1 . 227k-9  :  8 . 789  .  -O  .  11  2  r  -  6 . 608k  - -0 

y3<>  MAIA  -0 . 803U--4 »  5  •  803L-0 » -1 . 905t-6  » 2 . 006k  -8 
931  RKM 

940  KUK  1-1  IU  4 

950  kUK  J-l  IU  18 

960  K’k AM  MliJ) 

970  NtXI  J 
980  NkX  f  1 

990  MAIA  -0.07/V.-1 .224.-1 . 90.7  . -2  .  MOO  » -3 . 81  2  .  -  0 .  OO 1  .-6.6O81  -h 
1000  MATA  -12. 73. -0.281)9. -0.6119.-0.9/83.-1 . 401 , -< .901 . -2.009 
1010  UAIA  -4.343.-6. 01 . 1 .069,3. 33.0. 307. 7.712. 10. 72. 1 1 .63.20, 
1020  MA  I  A  40,0. 7V8y  ,  1  .  729  »  2. 837.  1 .  J  76 ,0.910.8.1/9,1  1.32,16.00 
;(>30  MATA  O.  001  3 /6 , -<• .  002O69, -(>.  04  773  ,  -0 . 225 J .  -  0 . 84  il*. -2 .  j/S . 
1040  MAIA  -14 .23 ,-35.06 ,-0.03991 , -0. 1869,-0.01 lc,  1 .133.-2.23 
1  050  UAIA  -/. 306,-13. 21  . -20.3/,-  0.00631  ,-0.04690,  -O  .  1541. , -O.  3 
1  060  UAIA  -0. 5130. -0. 4/69, 0.3101  ,3 . 1 15, 12. 22 ,0. 00 i i 02 t  O . 00904 
1070  UAfA  0. 0145,0.  1813,0 . 484/ ,  1  .  12,2 . 3/6. 4  .  S'O/ >  10 . 64 
1  0  71  KkM 

1080  kUR  J-l  IU  2 

1090  Rh AM  t( 1 » J) >fc ( 2,J> 1 k< 3, J) rt  (4,  J) 

1100  Hk.X  f  J 

1110  MAIA  7. 1  71  ,-0. 020)  .-O  .001  UKO.  2. 0/k;t-0 
1110  MAIA  7. 104 , -O.  1076,0. 000328,-6. 611  k- O 


1040  UAIA 
1  (>50  UAIA 


1100  Hk.x  r 

1110  MAIA 
1110  UAIA 
1  1  20  Rk  H 


.926 
1  -  3 , 28 4 
2, 28.98 
,21 .4.1 
5 . 98. 1 
,-4.1)6 
11.  / 


1121  k’h'lNI  ‘UUIKOl  jSl  U) 

1122  IHk'IJI  l.» 

1123  Ull  (0  kUS(S*.L*.  1  )  IJk 
1)24  (*-  *IIMLI  ASSik  It  M* 

1 120  UO  10  1 137 
1 1 2o  l«-*rOHk J MINI iAL ‘ 

1127  UO  I U  113/ 

1128  it-  *  :;t8Kk  1 

1 129  UO  ro  11 3/ 

1130  !«-->•  I  UK  81  Lkk  I  ‘ 


0)  NCI.  ASS,  L>  UNI  IU. 


<174 , 1 jJ6r  J 128, 1 130 


I 

'-■s 


> 

I 

■s 

A 

■% 

i 

► 


i 


1141  lit)  TO  114/ 

1142  PRINl  “SURRY f 4 

1144  P'RINI  *  I  HIS  itRMINAI.  IS  Mill  LLlftRPU  I  UR  *.C* 

1144  PR 1 N I  ‘NfcllHtR  ARK  YOU'!’* 

114b  PR  IN  I  4  I'LL  ASK  IRY  AGAIN.4 
1146  GO  10  1 121 

113/  PR  IN  I  4tNlt'R  CUl'fcWORU  OK  0  I  HKK  CAVfc  A  I  4i 
1348  I  NPU I  Uf 
113V  RKH 

1140  PRINT  *  01  SPLAY  UUIPUI  Al  <SCRKLN442»  P’RINIPR-51) 

1150  INPOI  A 

1160  IP  A=42  IHKN  1200 

11/0  IP  A=51  IHKN  3220 

1380  PRINl  *  NO  SUCH  OtVll'P  * 

11V0  GO  10  1140 
1200  Y-20 
1210  GO  TO  1280 
1220  Y=50 

1240  PRINl  4SLI.P.CT  IH1S  MALH1NK  ON  PRINIKR  GUlI'H4 
1240  PRINl  “PRINItR  LINK  SWIICH  -  (IN* 

1250  PRINl  4  A))  JOS  I  PRINItR  IU  (UP  UT  PAUL  4 
1260  PRINl  4  I YPK  <UR  •  WHIN  K'KAl'Y 4 
12/0  I  NPU  I  c* 

12/1  RKH 

1280  PRINl  4  00  YOU  WAN  I  I  API  OUIPUT'4J 
12V0  INPUT  C* 

1300  IP  C ♦ ~  4  N  4  IHKN  14V0 
1410  IP  U  +  =  4  Y  4  IHKN  1440 

1420  PRINl  4  ANSUKR  MUSI  Hfc  YPS< Y)  OR  NO  <  N ) 

1440  GO  IU  3280 
1340  1 7=1 

1350  PRINl  ‘PIKSr  PI!.!:  HUMPLR  <4>  4  I 

1360  INPUI  PI 

1370  IP  PI  <5  I  HEN  3  350 

1490  GUCUP  4/60 

1 3Y0  L1--1 

1400  L2C 

1410  PAGt 

1411  RP.M 

1420  P-RINI  •UNKNOWN  "KNJ.MPr  YrC  Y  4i 

1440  INPUT  It 

1440  11-PUSU!*  i(Jt»  1  ) 

1450  IP  ir-0  IHKN  4940 

1460  12=11+1 

1461  RtM 

14/0  PRINl  4  I G I  MSI  UINIPOKH- U  f NORMAL -1  >  Y  •; 

1480  INPUT  Ct 

1 4V0  IP  Uf 4*0*  IHKN  1520 

1500  IP  C*"4 1  4  (Hl-N  1540 

1510  GO  IU  14/0 

1520  12=0 

1530  GO  10  1550 

1540  12-1 

1541  RKH 

1550  PRINl  4  S  J  NUL  H  PRUBLKM  INPUT  4  i 
1560  INPUI  Lt 
15/0  15=1 
1580  14=0 

1 5V0  IP  Lt=  4  Y  4  IHKN  1640 
1600  IP  Of 4N4  IHKN  1640 

1610  PRINl  4  ANSWtK  HU5 1  YKHiY)  (IK  NLH  N ) 

1620  UU  10  1550 

1640  )  1=1 

1645  RKM  LUUP  UN  I 

1640  PUR  I  -i  IU  6 

1650  IK  I - J  1  OR  ji  I HT  U  22/0 


1660  00  IU  I  Of-  1630»1670,1 710. 1730.2150. 2170 

1661  KK.fl 

1670  PRINl  'NUHDtR  UK  OKIE'S  Y  ‘» 

1680  00  10  2:100 

1681  KK.M 

1 6V0  PR I K! I  ‘MUMPER  OK  PE'S  Y  'i 

1700  oo  io  2200 

1701  RUM 

1710  PR  INI  *  NUMBER  OK  YIELDS  Y  *r 

1720  oo  fu  2200 

1730  IK  11-3  OR  N  <  3  > '  1  IHKN  1830 

1731  RKM 

1  740  PR  IP  I  ‘CEP'S  VARY  iNHEPENHEi;  II  1  Y  ’i 
1750  INPUI  C« 

1760  IK  C»-*Y‘  I  HEN  1H30 

1  770  IK  C-*-‘N‘  IHK.N  180 V 

1780  PR  IK!  I  ‘ANSWER  MUSI  BE  YESOr)  OR  H0<N>  ‘ 
1770  00  10  1340 
1800  N(4)=N<3> 

1810  15-0 
1800  00  10  72VO 
1821  REM 

1830  PRINf  ‘CEP  IN  INCREMENtS  V  4  * 

1840  INPUI  C« 

18150  IK  Ct-  *N*  IHK.N  .*170 
1860  IK  C*-‘r*  IHK.N  1870 

18  70  PR  IN  I  ‘ANSWER  MUSI  UK  YK.S  <  V  >  OR  IIL)(N>  * 
1880  00  IU  1830 

1870  PRINf  ‘ CEP  <  Ml N ) .  CEPlMAXI »SIEP  Y  *i 

1900  INPUI  Cl . 02 . 03 

1Y10  IK  C2-C1>0  (HEN  1740 

1920  PR  IN  I  ‘CEP  (  MAX' )  MUSI  UK.  >CEP(MlK>‘ 

1930  00  10  1870 

1940  IK  C3CC2-C1  IHKN  1770 

1V50  PR 1 N I  ‘SI EP  MUSI  Ot  ICMA.X-CMIN* 

I960  00  10  10 VO 

1 V70  IK  V 1  =  >0  AND  02-0  ANH  C3X>  I  HE  ft  2000 
1980  PR1NI  * NK El)  CEP  >=■  0* 

1970  00  10  1WV0 

2000  J2-IC2-C1 I/C3K1 

2020  IK  ,1 2-  ‘SO  ANU  J2»>1  IHKN  2100 

2030  PR1NI  ‘  Y  UU  HAVE  KE  OULSYI'II  *  !  J2  f  *  CEP’S* 

2040  PRINl  MU»  YOU  WANI  I  HA  I  MANY  <Y/N>Y‘ 

2030  INPUI  C* 

2060  IK  t»-  *Y‘  IHKN  2100 

2070  IK  C‘»--‘N‘  IHK.N  JUVo 

2080  00  10  2030 

2085  REM  LOOP  ON  J1 

2100  EUR  J1=l  IU  J2 

2110  U<4.J1)-C1+<J1-1>*03 

2120  NR  X  I  J1 

2125  RKM  END  OK  J1 

2130  N< I )-J2 

2140  00  IU  2280 

2141  REM 

2150  PRINl  ‘NUMBER  UK  101  RAIMI  Y  '! 

5’ 160  00  10  2200 
2170  M(6)-N(3) 

2180  ('0  10  2:.’V0 

2181  RKM 

2  1  VO  Pk*  i  W  l  k  HUH Pt  K*  ?_!•“  CLP '  v  *  ? 

2iv:  pv.p 

21  VJ  PKM 

2200  iNPUi  w  <  i  > 

2210  IK  f ; { i  }  - mi  ;  ;  i  fHf-l.'  2220 

2220  PRINl  *  KtJMPK  K:  MOS  I  PE  *i  AM  ,7  '-f.f 
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2230  UU  ru  1  UK  ]6/0f  lAV'Jr  1  /10r  21V0>  2150,21/0 

2231  KKM 

223b  KKK  l  UUK  UN  JV 

2240  K  UK  JV-1  IU  4 

2230  N<JV>=1 

2260  KKXl  JV 

226b  KKM  tNI>  UK  JO 

22/0  N  (  1 3  ~  J 

2200  IK  3-11  IHKN  2040 
220V  KKM  l.UUK*  UN  J 
22V0  KOK  J-l  IU  Hil) 

2300  (JO  IU  1  UK  231  O i 23/0  *  2500  >  2610 i 264 Oi 2660 

2301  KKM 

2310  K'KINI  * VM IM  ‘  i Ji ’ )'  * f 
2320  INK'Ul  0* 

2360  2*  -UL'O  <  K*»ltN<  0*  >-l  .  1  ) 

23bO  K'-K'US<L*r2*,l  ) 

2360  IK  K'  I HK II  23VO 

23/0  K'KINI  ’  (VK'fc  MUS  I  OK  l  >  M ,  N  ,  U  ,  K  ,  U  r  K .  S  ,  I  >  U ,  >  ,  II  ‘ 

2360  UU  10  2310 

2300  X*-Si;u(0*  > 1  .LK«a:*)-2) 

2400  V(J> -VAI.  <X«) 

2410  IK  K'  6  UK  K-l  2  ANO  V(J>  5/  UK  (K  11  ANU  OlJU.Jb)  I HKK  3430 
2420  IK"  K'-ll  ANn  U<J)>0  A  KOI  OtJ>  -4  I  HKK  24/0 
2430  K'KINI  *VN  IS  UU I  UK  RANtifc  K  UK  lu)  IVK't* 

2440  UU  IL  2310 

24bO  IK  Ksl 2  I HkN  24/0 

2460  K-5 

24/0  S(J)=0.1*K 

2400  r<J)-K 

2400  IK  K= 1 5  IHKN  2330 
2SOO  IK  K  6  IHKN  2320 
2bl0  S< J)=S( J>-0.5 
2520  C*^StU(M*.LKN(6«),l ) 

2530  K ( J ) “OAK ( 04 ) 

2540  UU  IU  2030 
2550  K ( J  >  =  0 
2560  UU  IU  2030 
25*1  KKM 

25/0  KK IN  I  • KlH  • ! JJ  *  > -  ’ f 

2500  UU  IU  26 /O 
3501  KKM 

2500  KK1NI  •  YltLU-M  <  • ;  Ji  ’ •; 

2600  UU  ru  26/0 

2610  IK  C2<  >0  IHKN  2010 

2611  KKM 

2620  K'KINI  *  Ut’K-K  I  (  *  •  Jf  *  )  -  *  r 

2630  UU  ru  26/0 

2631  KKM 

2640  K'KINI  *fl>r  KAM  i  1/5- 1  I  (  *  S  J  j  *  >  -  ’» 

2650  UU  ru  26/0 

2651  KKM 

2660  K'KINI  “USK  <‘iJ/'>-  * i 
26/0  KfcM 
26/1  KKM 

26/5  INK'Ul  IHUJ) 

26/6  KKM 

2600  IK  i  j  uk  (lu  i * J>  o.yvv  am n  luir.n  o.ou)  ihkh  2/iu 
2600  K'KINI  -  K-l*  MUSI  OK  .WO  AN)'  .('J* 

2700  UU  IU  25/0 
2705  KKM 

2/1"  IK  1  '  >  3  UK  lKIfJJ  0  IHKN  3/40 
2/20  K'KINI  *ntUl  MU5I  HI:  '0* 

2/30  UU  TO  25</0 
27J5  KKM 

^/40  IK  J  .  4  UK  IMltJI-  O  IHKN  J//0 
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».A^1  \=m4Lm  *-•/»  *  i 


n  •  •  - 


2750  KK1NI  *CLK  MU5  I  8L  >-<>* 

2760  00  10  2670 
2765  KKM 

2770  1 K"  1.5  OK  IH  1 . J ) -  0  I HLN  7000 
2780  KKINl  ’IHT  KADI  US  MUSI  ML  =0* 

2  790  OO  10  2640 
27V5  KKM 

2000  IK  1  < .  6  OK  UKl.J)  >1  ANH  LHl  tJi  I’.OJ)  I  HI  N  3K60 
KKlNI  *USK  MUSI  HI  7-1.0  ANM  .02* 

2320  (id  (0  2660 
2860  NKXI  J 
2825  KK1  fc.Nl<  OK  J 

28-10  NKXI  1 

28- 15  KKM  two  OK  1 
2850  IK  15  IHKW  2870 
7860  N  (  4 > - 1 

2865  KKM 

2870  K'KINI  ‘HUV(UNi.V'OtAlK"-l  .  8'IIH  J)  Y  *  * 

2880  1NKUI  16 
2870  KKM  St' I  I  HACK 

2900  IK  16-0  UK  1 6-1  OK  J6~7  I MK W  6000 
2910  KKlNI  * HUS  MUSI- 0.1.2* 

2920  00  10  2870 
2960  KKM 

29- 10  KKM  tNM  UK  i  MKU I  KOIIIlWt 
2950  KKM 

2960  KKM  ******** *»:***»*. »****♦.. ■»***» *»*»***»  ***************************** 

:."7  70  KKM 

2980  KKM  S  ' AK  I  I  UI1KI.I  I A  I  lllNS 
2990  KKM 
3000  W<  7  )  --  l 

.5010  IK  16  >2  I  HI-  N  6060 

3020  N <  71=2 
3025  KKM  LOOK  UN  27 
3060  KUK  J/=l  IU  N</> 

30- 10  HO  -  0 

3050  IK  16  0  UK  U4  2  AMU  J/- 1)  I  Hr  M  6080 
3060  HO-J 

.5065  KKM  LUUK  UN  J1 
3080  KOK  21  =  1  rU  Nil) 

3090  14-1 

3100  It  f ( J 1 ) <  6  IHKM  6 1 20 
6110  14-2 

5115  KKM  LUUK  ON  .17 

5120  KOK  J2-1  lu  N<  2) 

5125  KKM  LUUK  UN  26 

3160  KUK  J6-1  IU  N ( 6 1 
3140  IK  116  IHKW  5600 
3150  T6  =  U( 6. J6 )  '< 1/6  * 

3160  IK  I  (21)  -11  IhhN  6300 
3170  UUSUH  4660 
3180  0USU8  4510 
6190  80  (U  6600 
3200  J*-V(J1> 

3210  01=0(21) 

3720  it  HO  *0  IHKM  .5250 

32  30  i  =•  1  +  4 

3740  HO  -H  <  01 ) *Y i 

3745  KKM  LUUK  UN  2 

3750  IUk  J-l  (U  4 

3760  1  k  IK6.26)-  IJ(l.J)  IHKW  6280 
52  70  MK  X  I  2 

,5275  KKM  ‘  Ml-  IJ*  i 

3280  W  .U(  IfJ.J  )*H(  6.  J6)  O’.  (18.  114) 

.5290  S<  J1  )  =|l(  1  ,  J+4  > 

5295  KKM  LUUK  UN  -14 


3300  K OK  J4’l  10  N<4> 

3310  C/-0 . 4 

3320  IK  12-0  THKN  3340 
3330  L/«0.231 
3340  IK  15  1HKN  3360 
3350  J4= J3 

3355  RKM  LOOK  ON  J5 
33AO  KOR  J5-1  10  N(S> 

33/0  IK  1102  IHKN  3410 
3380  GOLUB  45(10 
33V0  1U*P*B<6pJ3> 

3400  GO  (O  3860 
3410  K-LH2rJ2> 

3420  82-LUG  < -LUG  <  K' ) ) 

3430  1B^10*L<J1> 

3440  P8-(B2-G( 1 » 18 >  > /G < 2» IB > 

3450  M  =G (3iI8)/G(2>lll) 

3460  K2-G<4. 18>/0<2.l8> 

34/0  K3«G(5* I8)/G'2»I8> 

3480  K4=G(6» I8)/U<2pI8> 

34VO  Ul-0 
3500  02jR<IH) 

3510  03=<U14U2>/2 

3520  K/=U3*( 1+U3*<K1+U3*(K2+U3*(K3+U <*K4) ) ) ) 

3530  IK  rtRG<K/-K8)<-l .OL-3  IHKN  3500 

5540  IK  K/-K8  0  IHKN  35/0 

3550  01-U3 

3560  GO  '!  U  3510 

35/0  U2-U3 

3580  00  (U  3510 

35VO  IK  11-3  IHKN  36/0 

3610  H<4»  1  )=-(W/U3)"2-C/*lU5.J5)  '2 

3620  IK  1U  4  «  1  >  >0  THKN  3650 

3630  B  <  4  *  1  )*■•-! 

3640  GO  (0  3660 

3650  0  <  4  p 1 ) =  SUR ( 0  <  4  » 1 ) ) 

3660  GO  TO  3860 

o680  U1»SUK  <  l'<  4  >  J4  >"2+l)<  5 »  55 >  "2*L/ ) *03 

36V0  Ml-0 

3/00  M2-10 

3710  Y 3“M2 

3720  GOLUB  4360 

3/30  IK  W>U1  (HKN  3//0 

3740  M1-M2 

3750  m:;-2*h2 

3760  GO  TO  3710 

37/0  Y3=(rtl+!12)/2 

3780  UULUU  4360 

37V0  IK  W>U1  IHKN  3H20 

3800  M1=Y3 

3810  GU  TO  3830 

3820  H2-Y3 

3830  IK  6»S(U-U1)/W1  l.OK-3  ( HK  H  3//0 
3840  0 ( 3 ► 1 ) -Y3  3 
3850  GOLUB  4510 
3860  RKM 

38/0  IK  LI >0  (HKN  3V50 

38/5  KRINI  l 1 

38/6  L2-L2K1 

38/V  IK  L1--0  (HKN  3885 

3880  L I =0 

1882  KRINI  LI 

o88 '  GO  (0  JVOO 

3HH".  K-R  J  H  f  86!  ULING  4M!IK,WS 


38 Vo  KRINI  fcrtl'L* 

3900  KRINI  86!  USlNU  430!I*pW*pL2 


iWVuW-4 


i*.’  .,*"»•  !  T.ViV.  2. 
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3910  PRINI  8A1*  ON  I  K  AON  VrKLlHM  )  CtPIKT)  IKAO(I  I)*; 

3920  PRINI  8A1*  HUIHKII  UR(M>  Pl»  X  PA  -  UK  * 

print  «a: 

3940  RKM  WHAT's  IHISYVV  >>7  Ik  DTJ.J3X100  IHKN  4130 

3v:so  /**si:u<l«.  i  ( ji  )  ri ) 

3V60  PRINI  t*A!  USING  440!  U<  .11  )  .  1%  w  K  (  J1  )  >  VI  .  IW  J  ,  J3  >  *  1)  <  4  »  J4  )  »  1)  ( li.  J5  ) 

39X0  PRINT  VA‘.  USING  450 1  HO  <  W » P » D<  6  i  .13  >»  01 

3990  Ll-Ll+1 

4000  IP  17*0  I HKN  4330 

4010  IP  r<Jl)  =  10  IHKN  4030 

4030  IP  T<Jt>  =  U  IHKN  40X0 

4030  19-1 <J1) 

4040  00  TO  4 1 00 
4050  TV-0 
4060  00  TO  4100 
40/0  19-1 

4080  0<lfL3)  =  -(V(Jl)+ IV/10+KT J1 >/i  00  >*100 
4090  00  TO  4110 

4100  U<lfL3)*<V<Jl>K I 9/10+KT  J1 >/100>»)00 
4110  0<3»L3)=l><3»  J3) 

4130  U(3rLJ>»lU4.  J4) 

4130  0<5rL3)  =  l'(3»  J3  ) 

4131  U  <  7 1 L  J ) - D  <  6 »  J3 ) 

4133  UT8iL3)=Dl 
4140  O(4.L3)=0 

4150  Ik  HO-'O  IHKN  41X0 

4160  OT4iL3)-l 

4170  U(6.L3)--‘1000+P 

4180  LJ=L3kl 

4190  IP  L3<51  THKN  4330 

4300  RPM  STORK  PAT A 

4201  L3“l 

4202  00  TO  4250 
4210  STOP 

4220  K 1 "k 1 ♦ 1 
4230  008UB  4760 
4240  L3=l 

4250  IP  L1<V  IHKN  4280 

4270  L 1  *0 

4280  NKXI  J5 

4290  NKXf  J4 

4300  NKXI  J3 

4310  NKXI  J2 

4320  NKXI  J1 

4340  NKXI  J7 

4341  PK1NI 

4342  PR1NI 

4343  PRINI  'UO  YOU  HAOt  MORI  IHPIJ IS  <Y/N>  V  ‘i 

4344  INPUT  0* 

4345  IP  C  ♦  ’  *  Y  *  THKN  1390 

4346  00  fO  4840 
4348  RKM 

4360  RKkl  SUOKUU I  INK.  fO  OUHPUIK  WKA'-'ON  KAMI  US 

4361  Y4-1/Y3 
-1370  Vl^U(Jl) 

•''380  IP  MJD-0  IHKN  4410 
4390  J -9H14-V  +  M.J1  ) 

4  400  V1*V<  J1  >+k>(  1  .  J>  +  Y4*(B(2».>M  Y4*<U<3»  J  >  +  Y4*8<  4»  J>  >  > 

4  410  J-‘  I  4 

4420  IP  HO =0  IHKN  4440 
4430  J  »JK2 
4440  U'K/iJ) 

4450  PUR  I -6  10  1  SltP  1 
4460  U>=WX01+K  (  I  ,  J> 

4470  NKXI  I 
4480  W-Y3*tXP<W> 
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4490  W =M/ <U< 14 )*< 1-5C J1 r  2) > 

4500  KKlUKN 
4505  KKM 

4510  KKM  SUBKUUIINK  lu  LUHKUIl  OKI  1 HUM  HUB 

4511  IK  H0:=0  I  HKN  45/0 

4520  IK  14  =  1  UK  VI =>15  I HKN  4550 
4530  H0-1661*LXK’C-V.0613t;*Vl  ) 

4540  (50  TO  4560 

4550  HO  =tXK< t ( 1 . 14  >+Vl*< t < 2 , 1 4  > +V1* < t (  .1 . I 4>+Vl»t<4*l4>>>> 
4560  HO-YJ*HO 
4570  KKlUKN 
45V 5  KKM 

4576  KKM  SUBKU'JI  INK  IU 
45B0  IK  1)(4»J4>  f HKN  4610 
45V0  K-l 
4600  KKlUKN 

4610  Kl-W/aUK'(  11(4.  J4  )  "2  +  C  7*U  (  5 .  J5  )  ■"*> 

4620  IK  S (Jl)-O.l  ANM  kl>J  I HK  N  45V0 

46 JO  IK  8  (  J 1 1=0*2  ANM  K1  J.5  I HK M  45VO 

4640  IK  S(J1)-0.J  ANM  01  4.5  I  HK  N  45*70 

4650  IK  S  <  J1 > “0 • 4  ANM  K1  A  I HKN  4500 

4660  IK  S<Jl)-0.5  AND  fcl/,y  I HK N  4500 

46/0  IK  k*  1  >0  •  1  I  HKN  4  700 
4600  K'-O 
46V0  KKfUKH 
4700  IH10*S(J1) 

4710  K'O-Klf  05(5*  10  )  +  K1  *15  <  6  *  1  8  >  > 

4/20  K'V*-U<  1  *  18>+kl*(t5<2*  1H)+K1»U5(  J*  J0)+Kl*(b(4*  10>4K  V)  )  > 
4  //A)  K'-*tXK'(-KXK'U'y  )  J 
4750  KKlUKN 

4755  KKM 

4756  KKM  SUUKUUIlNK  (U  SIUKK  UIJ  ( K  U  (  UN  I  AK  b 
4/60  HON  J*1  IU  50 

4770  KUK  1  =  1  IU  6 
4700  UU.J1-0 
47V0  NKXI  1 
4800  NKXI  J 
4810  KKlUKN 

4815  KKM 

4816  KKM  SUBKUUIJNK  IU 
4820  KIND  Kl 

48 JO  KKlUKN 

4840  IK  Ll-V  I HKN  4845 
4041  IK  L I/O  I HKN  484/ 

4842  KUK  1- LI  IU  t 
484 J  KKlHI  HA! 

484  4  NKXI  I 

4845  KK1NI  HA  I  USlNU  42i:i»*Wi 
4046  KKINI 

484/  IK  17=0  UK  t  (=1  I HKN  4860 
4850  KKM  B  IUKb  I'A  I  A 
4860  IK'  17=0  I  HKN  4870 
4070  KklNI  •K-KUliKAM  18  K1N15HKB' 

4880  h  NO 


Appendix  D 


SAMPLE  ALLOCATION  PROCEDURE 
(PROVIDED  BY  SAGA) 

ALLOCATION  PROCEDURE 


1.  Computations 

a.  Installations  within  the  target  data  base  fall  into  one  of  two 
categories  of  DE  goals.  Installation  Damage  Expectancy  (IDE)  implies 
that  each  installation  must  be  damaged  to  the  required  level.  Mean 
Installation  Damage  Expectancy  (MIDE)  implies  that  installation  set 
must  be  damaged  to  the  required  level.  When  there  Is  a  MIDE  goal  , 
the  OE  on  some  installations  within  the  set  may  be  greater  than  the 
goal  while  other  installations  may  be  damaged  less  than  the  goal  and 
some  may  not  be  damaged  at  all  . 

b.  Damage  Expectancy  (DE)  is  the  product  of  the  Probability  of  Destruc¬ 
tion  ( PD /  and  the  Probability  of  Arrival  (PA).  DE  =  PD  x  PA 

c.  The  OE  on  an  installation  attacked  by  two  weapons  each  with  a 
damage  expectancy  of  DE^  and  DE.,  Is  called  compound  damaqe  expectancy 
and  is  expressed  CDE  1 /-(1-DEi )*x  (I-DE2) 

d.  For  sets  of  targets  with  an  IDE  goal  the  above  relationship  holds  for  each 
installation.  Therefore,  if  it  required  "w"  weapons  of  a  given  type  to  achieve 
the  DE  reguired  on  a  single  installation  within  the  set,  the  total  number  of 
weapons  that  would  be  required  to  attack  the  set  is  (Nr  of  installations)  x  (w). 
Note  that  "w"  must  be  an  integer. 

e.  For  sets  with  an  MIDE  goal,  the  following  criteria  are  used: 

(1)  When  the  weapon  DE  against  an  installation  within  the  set 
is  greater  than  the  MIDE  goal  the  following  relationship  holds: 

(MIDE  Goal)  x  (Nr  of  Installations)  =  (Nr  of  Wpns)  x  (Wpn  DE) 

Therefore,  Nr  of  Wpns  =  (MIDE  Goal)  x  (Nr  of  Instal  ) 

Wpn  DE 

For  example,  suppose  the  DE  goal  on  a  set  of  100  installations  is 
0.5  and  the  weapon  DE  =  0.8,  The  number  of  weapons  required  is 


(0.5)  x  (100) 

0.8 


=  62.5  =  63  weapons 


(2)  When  the  weapor.  DE  against  an  installation  is  less  than  the 
MIDE  goal  the  following  relationship  holds: 

MIDE  Gcal  =  1  -  (l-DE])P  x  (1  -  DE2)q 

where  "p"  and  “q"  are  the  numbers  of  weapons  #1  and  #2  applied, 
respectively  against  a  single  Installation.  Note  that  "p"  and 
"q:i  do  not  need  to  be  integers. 
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(a)  Assuming  one  weapon  #1  was  applied  against  each  installa¬ 
tion  in  the  set,  the  number  "q"  is  the  number  of  #2  weapons 
that  need  to  be  applied  per  installation.  Solving  for  q, 

HIDE  Goal  =  1  -  (1  -  DE , ) 1  x  (1  -  DE2)q 

(1  -  DE])  x  (1  -  DE2)q  -  1  -  MIDE  Goal 

(1  -  DE2)q  =  1  -  (H10E  Goal> 

1  -  0E1 


q  log  (1  -  0E2)  ■  log  1  -  MIDE  Goal 

“1  -  DE1 

1  -  MIDE  Goal 

log  - — - — 

1  -  OE, 

q  =  - > - 

log  (1  -  0E2) 

The  number  of  #2  weapons  that  must  be  allocated  against  the 
set,  N,  is 

N  »  (q)  x  (Nr  of  installations) 

(b)  If  only  one  type  of  weapon  is  used, 

MIDE  Goal  «  1  -  (1  -  DE)n 

_  log  (1  -  MIDE  Goal ) 
log  (1  -OE) 

(c)  If  an  equal  number  of  two  different  weapons  are  to  be  used 

MIDE  Goal  -  1  -  (1  -  DE})"  (1  -  DE2)n 

and 

log  1  -  MIDE  Goal 
n  =  - - — - - - 

log  (1  -  DE , )  (1  -  DE2) 

N  -  (n)  x  (Nr  of  installations) 

(3)  The  process  described  in  paragraph  (2)  above  will  yield  a 
number  slightly  less  than  the  actual  requirement. 
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(a)  For  example,  suppose  the  MIDE  goal  on  a  set  of  1000  installa¬ 
tions  is  0.7  and  the  weapon  being  used  has  a  DE  of  .48.  Using 
the  formula  from  para  (2){b): 

n  *  _ l°a  0  l  -7) _  =  1.841 

log  (1  -  .48) 

N  =  (1.841)  (1000)  =  1841  weapons  allocated  against  the  set 

Therefore,  841  installations  are  targeted  with  two  weapons  with 
DE  =  1  -  (1  -  .48)2  =  .73,  and  195  Installations  are  targeted  with 
one  weapon  with  OE  =  .48. 

841  x  .73  =  613.9 

159  x  .48  =  76.3 
690.2 

The  MIDE  is  .69  which  is  less  than  the  goal  of  0.7. 

(b)  A  linear  correction  can  be  applied  in  the  following  manner. 

Let  x  be  the  additional  number  of  installations  to  receive  a 
second  weapon 

(841  +  x)  (.73)  v  (159  -  x)  (.48)  =  700 
690.25  +  ,25x  =  700 
x  =  39  additional  Installations 

Therefore,  1880  weapons  must  be  allocated.  The  MIDE  achieved  is: 

880  x  .73  =  642.4 

120  x  .43  =  57,6 

700.  MIDE  =  .70 

(c)  During  the  allocations  in  this  study,  the  linear  correction 
was  not  computed.  Instead,  the  individual  performing  the  alloca¬ 
tion  was  satisfied  to  achieve  a  DE  within  one  percent  of  the  goal  . 

c.  Suppose  that  the  PO  against  the  majority  of  the  installation  in 
the  target  base  was  very  close  to  1.0.  The  DE  achieved  would  be  driven 
down  by  PA  only.  The  Impact  of  this  is  that  the  planner  who  established 
the  DE  goal  may  have  envisioned  severe  damage  to  70?  of  the  target  (for 
an  area  target)  as  the  goal,  not  a  70%  chance  of  a  weapon  arriving. 

If  more  than  ohe  weapon  Is  targeted  against  an  installation  the  prob¬ 
ability  of  at  least  one  weapon  arriving  is 
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*  m\ 


p  at  least  one  yr  (i  _  pA, ) 

arriving  =  I  -  n  1 

1  «  1 

where  PA^  is  the  probability  the  ith  weapon  will  arrive. 

2.  Allocation  Process. 

a.  The  process  by  which  weapons  were  allocated  against  the  target 
base  was  the  same  in  the  generated  and  day-to-day  cases  with  one 
exception.  In  the  day-to-day  case,  when  the  DE  goal  was  a  goal  against 
a  set  of  installations  (MI DE ) ,  weapons  were  allocated  until  the  goal 
was  reached  even  if  all  installations  were  not  planned  to  be  struck. 

In  the  generated  case  all  installations  were  assigned  weapons  even  if 
DE  goals  were  exceeded. 

b.  In  general,  weapons  were  first  allocated  to  achieve  high  confidence 
DE  goals  against  the  entire  target  base.  If  the  high  goal  requirements 
could  not  be  achieved  the  weapons  were  reallocated  to  achieve  the 
moderate  confidence  DE  goals.  If  the  moderate  goals  could  not  be 
achieved,  one  weapon  was  assigned  to  each  installation;  and  the  DE 

was  computed. 

c.  Time-urgent  installations  were  allocated  a  missile  warhead.  ICBMs 
were  struck  using  IC8M  weapons.  However,  when  the  DE  for  an  ICBM 
weapon  against  a  silo  was  less  than  the  DE  for  an  SLBM  weapon,  the 
SlBM  weapon  was  chosen. 

d.  Weapons  were  allocated  against  target  objectives  in  a  sequential 
order.  Within  each  target  objective,  target  classes  identified  as 
requiring  time-urgent  weapons  were  assigned  a  weapon  first.  Within 
the  time-urgent  and  non-time-urgent  categories,  weapons  were  assigned 
first  to  sets  of  installations  In  which  each  installation  was  required 
to  be  damaged  to  the  required  level  (IDF  target  classes)  then  to  the 
sets  in  which  the  set  was  required  to  be  damaged  (MIDE  target  classes). 

e.  For  each  target  class  the  DE  associated  with  each  available  weapon 
system  was  computed.  The  weapon  used  was  the  one  which  most  closely 
satisfied  the  DE  requirement.  However,  if  the  DE  of  a  weapon  was  more 
than  10  percent  below  the  DE  goal  (e.g.,  weapon  DE  .45  against  a  DE 
goal  of  .50),  the  weapon  was  not  used  unless  it  was  the  most  effective 
weapon  remaining  In  the  arsenal.  Time-urgent  targets  were  allocated 
missile  weapons  even  if  other  weapon  DE's  were  closer  to  the  goal. 

f.  Generally,  if  the  DE  achieved  was  within  10  percent  of  the  goal 
(e.g.,  above  .45  against  a  .50  goal)  the  goal  was  considered  to  be  met. 
There  were  a  few  exceptions.  For  example,  if  the  IDE  goal  was  .90  and 
the  only  weapons  available  h  d  a  DE  of  .80,  one  weapon  was  allocated 
Instead  of  allocating  a  second  weapon  that  would  achieve  a  compound 

DE  of  .96. 
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g.  Weapons  were  allocated  against  one  target  objective  at  a  time 
using  the  above  procedure.  Each  target  class  within  the  target 
objective  was  assigned  weapons  even  if  goals  wore  not  met.  Before 
proceeding  to  the  next  target  objective  a  second  weapon  was  assigned  to 
those  target  classes  for  which  goals  had  not  been  reached.  After  all 
installations  within  the  entire  target  set  had  been  assigned  weapons, 

a  third  weapon  was  assigned  to  Instal 1 ations  where  the  DE  goal  had  not 
been  achieved. 

h.  Since  the  allocation  was  by  target  objective,  time-urgent  targets 
in  some  target  objectives  were  assigned  weapons  after  non-time  urgent 
targets  in  high  priority  target  objectives.  Therefore,  the  individual 
performing  the  allocation  "saved"  missile  weapons  for  those  time  urgent 
installations  as  he  proceeded  through  the  allocation  process. 
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